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INTRODUCTION TO KRACKER FACTS 



Bvex since the GRAM Krackex was released in late 1985, people have come up with 
many changes to the operating system and the cartridges. Some were uploaded to 
CompuServe, some to GEnie, some were published in newsletters, and some were just 
passed around by word ot mouth. Unfortunately, there was no one place that someone 
could look for all of the changes. 

When MG released Danny Michael's excellent GK Utility I disk, it was very helpful 
- many changes on one disk, ready to run. But there were still many changes that 
people had made, and they were scattered all over the four corners of the TI 
community. 

This booklet, Kracker Pacts, is an attempt by the Los Angeles 99er Users' Group 
to assemble all of the articles and modifications for the GRAM Kracker in one 
publication. 

In here are articles by Tom Freeman, Millers Graphics (Craig Miller and D.C. 
Warren), Mike Dodd, and Walt Howe. All are targeted towards getting more out of your 
GRAN Kracker. Ve hope you enjoy them. 



We thought you might like to see what a powerful and compact language GPL code 
is. With the GRAM KRACKER and a GPL Assembler you will be able to write programs that 
can reside in the Module space and will be displayed on your Main Menu as a selection. 
GPL can also link to Assembly and BASIC programs I So you will have PULL use of the 
THREE built-in languages in our 4As (Basic, GPL and Assembly). Bat your hearts out 
all you Atari, Commodore, IBM and other computer owners! 



A LITTLE INTRODUCTION TO GPL CODE 
by Craig Millar (MG) 



* 



* Disassembly of part of the Editor/Assembler Module * 
* Starting at Grom >6069 thru >6132 * 



* 



t 



>6069 MOVE 7 PROM GSRSGDAT TO VROl 



Load the Vdp registers 



CALL CHKMBM 



Go check for memory expansion and 
load the (C) character data 



MOVE 16 FROM G@CURSOR TO V§>08F0 



Load the box and solid cursor data 



* Put up the first Menu Screen 



ST >7E,8SUBSTK 

DCLR @ERRCOOE 

DCLR @GROMPLG 

ALL SPACE 



Initialize the Sub Return stack pointer 
Zero out A/L Error Code indicator 
Zero the Grom Flag 

Clear the screen with space characters 



FMT 
ROW 



2 



Start formatted screen output 
At row 2 
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End the formatted screen output 



6BTKY SCAN 
BR 
CEQ 
BR 

EXIT 
GETXYl SUB 
CHE 
BS 



GETKY 

PCTH9,§KBY 
GETKYl 

>31,eKEY 
>05,8KEY 
GETKY 



Scan the keyboard for a icey press 

BR (Branch on Reset) no HBV key pressed 

Vas FCTN 9 (Back) Pressed 

NO I check the other keys 

YESl Execute the Power Up routine 

Subtract >31 from the keycode (0 - ?) 

I£ it's now Higher than 4 - vrong key 

So, go wait for another key press 



CASE 9KEY Otherwise if gKEY equals 

BR EDIT - goto Edit Menu 

BR ASSEM 1 - goto Load Assembler Prompt 

BR LODRUN 2 - goto Load and Run prompt 

BR RUN 3 - goto Run Program prompt 

BR RUNPRG 4 - goto Run Program File prompt 



Notes; 

The above code only requires 202 bytes of memory and that includes 119 bytes of 
textl So that means the actual instruction code only uses 83 bytes of memory I There 
isn't another language available for our 99/4As that is as compact as GPL. And, when 
compared to Assembly, it is much easier to program in. This is THE Language that TI 
should have released to us in the first placet 

Most instructions can work with bytes or words. The D in front of an instruction 
indicates a word operation. The first operand to is SOURCE and the second is the 
DESTINATION, ie: ST >03,eTEMPl stores one byte with the value of 3 into location 
TEMPI. 

The COND bit in the GPL Status register 0837C) is turned ON if the test is TRUE 
and OFF when FALSE. It is also turned on when a NEV key is pressed on a keyboard scan 
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oz when the result of certain instructions is zero. 

BR » Branch On Reset... or Branch if the COND bit in the GPL Status register is 

OFF 

BS = Branch On Set or Branch if the COND bit in the GPL Status register is 

ON 

CASE is like ON X GOTO except it starts at zero instead of 1 (Note: the 

CONO bit is always turned OFF (reset) for a CASS or OCASB) 

A CALL works like a GOSUB or Assembly's BL (Branch and Link) 

'ALL' fills the screen with the one byte character following the instruction. 
(That's right only 2 bytes to clear the screenllll) 

MOVE is a very powerful GPL instruction. Vith it you can MOVE x number of bytes 
FROM any type of memory TO any type of memory You can also move bytes to the VDP 
Registers 1 The MOVE instruction only requires 6 to 7 bytes for its object code I 

SCAN (to scan the keyboard) only requires 1 byte of object codelli (SCAN - >03) 

Speed Test; 

Ve ran the old 1 to 10,000 timing test in GPL to see how it compares to the other 
languages and here is how it came out. 

1. In an incrementing loop with a DCBQ (double Compare Equal) 6.8 seconds. 

2. In a decrementing loop [no compare just BR (not zero)! 4.3 seconds. 



As we have seen from previous tests this places third on the list. 





Assembly 


- well under .5 second 


2. 


Forth 


- approx 1.3 seconds 


3. 


GPL 


- 4.3 to 6.8 seconds 


4. 


Pascal 


- I think this is where it falls 


4. 


XB 


- 33.9 seconds 


5. 


Basic 


- weeks (just kidding) 



Since its not as fast as Assembly or Forth you are probably wondering why we are 
so excited about GPL?l True, a CRAY 3 it's not. However, it requires LESS THAN one 
half the space of Assembly codel tflth the Gram Kracker you have up to 58X of GPL 
program space (with 6K reserved for the Operating System), which would require AT 
LEAST 116K of Assembly code. This still leaves ALL of memory expansion free plus the 
16K of cartridge RAN free for other things or for Assembly routines for your GPL 
programs to link to (another 4dK). That gives us a TOTAL program space of 106K plus 
16K of VDP Ram for a total of 122K (128K with the Operating System area). Also with 
GPL you can EXPAND or modify existing Modules. And, last but certainly not least, GPL 
is the controlling language for our 4As, so now you make it do most anything you wantl 
Start thinking about those changes you've wanted to make for the last 6 years, your 
chance is coming! 11 



AN EXPLANATION OF THE GPL XML INSTRUCTION 
by Craig Miller <MG) 

If you are using Gram to store an Assembly file in that is MOVEd out by a CALL or 
a GPL program (patch) you can start the Assembly program with a GPL XML statement. 

The Opcode for GPL XML is >0F xx - where xx represents the XML table to use for 
the start vector (See the Explorer Manual page 77 for the XML tables). For example 
let's say you used a gpl move to move an 8K assembly program out of Gram 7 OBOOO) to 
high Memory Expansion and now you want to go out of GPL and execute your Assembly 
program. Let's say that your Assembly program starts at address >A040, this could be 
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the code you could use to do this task. 



31 20 00 MYPR06 HOVE >2000,6e>E000,6>A000 

8P 10 00 
BO 00 

BP 00 AO DST >A040,§>8300 (store start address) 

40 

OP FO XML >P0 (go to >8300 to get start address) 

00 RTN 

When your Assembly program is finished you can then B @>006A to go back to the 
GPL Interpreter. Don't £orget to reset the Grom Address If your Assembly program 
changed it. When the GPL Interpreter starts back up it will grab the >00 opcode (RTH) 
and return from the CALL MYPROG that you set up somewhere else in Gram to start the 
above routine. By the way, the Opcode for a CALL is >06 so the CALL MYPROG would be 
06 XX XX where xx xx =» the address in Gram where you placed the above code. 



PROGRAMMING EXAMPLES OF THE BPL "MOVE" INSTRUCTION 

by Craig Miller (MG) 

Listed below are a number of examples of the GPL HOVE statement. This is a LIST 
file generated by the GPL Assembler. 

When the GPL Interpreter talks to CPU Memory it offsets the CPU address by >8300. 
This can be seen in the OPCODES for the third move statement which breaks down as 
follows : 



>35 MOVE 

>1234 >1234 bytes 

>8F to CPU Memory (non-indexed) (>AF = VDP memory) 

>9D00 at >2000 (>9O004->8300=>2000) 

>8P from CPU Memory (non-indexed) 

>1D00 at >A000 (>1D004->8300»>A000) 



When the GPL Interpreter talks to CPU Scratch Pad Memory Below >8380 or when a 
Scratch Pad address is used for indexing it is referenced by one byte (i.e. >831P 
will appear as >1F in the Opcode). 

99/4 GPL-ASSBMBLBR (Pass 1) correct PAGE 0001 

GROM 3 - MOVE TEST 



<0001> 

<0002> GROM 3 

<0003> AORG 

<0004> 

<0005> * GPL MOVE STATEMENT 

<0006> * 

<0007> * MOVE ibytes, source, destination 



<0008> * 

<0009> 6000 21,12,34 MOVE >1234,G8>C000,6e>E000 

6003 EO,00,CO 
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<0010> 
<0011> 
<0012> 
<0013> 



<0014> 
<0015> 



<0016> 

<0017> 
<0018> 



<0019> 
<0020> 



<0021> 
<0022> 
<0023> 



<0024> 
<0025> 



<0026> 

<0027> 
<0028> 

<0029> 

<0030> 
<0031> 
<0032> 
<0033> 
<0034> 
<0035> 
<003$> 



6006 
6007 
600A 
600D 
6010 
6013 
6016 
6019 
601C 
601F 
6020 
6023 
6026 

6028 
602B 
602E 
6030 
6033 
6036 
6038 
603B 
603E 
6041 
6044 

6045 
6048 
604B 
604D 
6050 
6053 
6056 
6059 
605C 
605D 
6060 
6063 

6065 
6068 
606B 
606D 
6070 
6073 
6076 
6079 
607B 
607B 
6081 
6082 
6085 



00 

35,12,34 
AP,30,00 
AF,10,00 
35,12,34 
8P,9D,00 
8F,10,00 
35,12,34 
1P,8P,1D 
00 

35,12,34 
80,9E,8P 
10,00 

31,12,34 
AP,30,00 
CO, 00 
31,12,34 
8P,9D,00 
CO, 00 
31,12,34 
IP, CO, 00 
31,12,34 
80,9B,CO 
00 

25,12,34 
CO,00,AP 
10,00 
35,12,34 
8P,9O,0O 
AP,10,00 
35,12,34 
1F,AP,10 
00 

35,12,34 
80,9B,AP 
10,00 

25,12,34 
C0,00,8P 
9D,00 
35,12,34 
AP,10,00 
8P,9D,00 
35,12,34 
2P,1P 
35,12,34 
80,AB,80 
9B 

35,12,34 
1P,80,9B 



MOVE >1234,ve>1000,V§>3000 
MOVE >1234,8>A000,e>2000 
MOVE >1234,g>A000,§>831F 
MOVE >1234,g>A000,g>839E 

MOVE >1234,G§>C000,Ve>3000 

MOVE >1234,Ge>COOO,e>2000 

MOVE >1234,6§>C000,#>831P 
MOVE >1234,Ge>C000,e>839E 

MOVE >1234,V§>1000,Ge>C000 
MOVE >1234,ve>1000,§>2000 
MOVE >1234,Ve>1000,8>831F 
MOVE >1234,V§>1000,g>839E 

MOVE >1234,§>2000,68>COOO 

MOVE >1234,g>2000,V§>1000 

MOVE >1234,8>831P,g>832P 
MOVE >1234,g>839E,g>83AE 

MOVE >1234,g>839B,g>83lP 



* INDEXED MOVES 



831P 
839B 



TEMPI BQU >831F 
TEMP2 >839B 



6088 29,12,34 



MOVE >1234,Gg>C000,Gg2(gTBMP2) 
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<0037> 
<0038> 
<0039> 
<0040> 



<0041> 
<0042> 



<0043> 
<0044> 



608B 
608E 
6090 
6093 
6096 
6098 
609B 
609E 
60A1 
60A4 
60A7 
60A9 
60AC 
60AF 

60B2 
60BS 
60B8 
60BB 
60BB 
60C1 
60C4 
60C7 
60CA 
60CO 



<0045> 
<0046> 
<0047> 
<0048> 



<0049> 
<0050> 
<0051> 



<0052> 
<00S3> 



00,02,9B 

CO, 00 

31,12,34 

B0,02,9B 

CO, 00 

31,12,34 

CP,7D,02 

9E,C0,00 

31,12,34 

CO, OF, IF 

CO, 00 

2B,12,34 

00,02,98 

00, 01, IF 

2D, 12, 34 

00. 02.9B 
8F,1D,00 
35,12,54 
B0,02,9B 
BO, 01, IF 
35,12,34 
CF,7D,02 
9B,CF,7D 

01, IF 



60CF 
60D2 
60D5 
60D6 
6009 
60DC 
6 ODD 
60B0 
60B3 
60E5 
60B8 
60EB 



31,12,34 
B0,9B,C0 
00 

31,12,34 
90,9B,C0 
00 

31,12,34 
DO, OF, IF 
CO, 00 
33,12,34 
90,9B,00 
01, IF 



60BD 35,12,34 
60F0 FF,7D,02 
60F3 9B,FF,7D 
60P6 01, IF 
<0054> 60F8 3S,12,34 
60FB 90,9E,90 
60FE IF 

<0055> 
<0056> 



MOVE >1234,Ge>C0O0,V§2(8TEMP2) 



MOVE >1234,Gg>C0OO,g2(§TBMP2) 



MOVE >1234,G8>C0O0,«>830F(eTEMPl) 



HOVE >1234,6$1(8TEHP1),G@2(9TEHP2} 



MOVE >1234,e>A000,G§2(eTBMP2) 



HOVE >1234,V§l(«TBMPl),ve2(§TBMP2) 



MOVE >1234,n(@TEMPl),@2(@TEMP2) 



IMDIHBCT MOVES 

MOVE >1234,G§>C000,V*TEMP2 

MOVE >1234,6e>C000,*TBNP2 

MOVE >1234,G?>C000,*>830F{eTEMPl) 

MOVE >1234,G§1(§TBHP1),*TBHP2 

HOVE >1234,V«1(§TEMP1),V»2|§TEMP2) 

MOVE >1234,*TBMP1,*TBMP2 

BHD 
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"CALL CAT" GPL SOURCE CODE 
by Craig Miller (MQ) 



. »hi.r »e uploaded It to qlve 
«, » LIST Jlle «"m the Maenblet. m diskette. 
The follovln? me ^ 'u „„ the tUal Oram "f *" "„„ii„ 110. The 

„„ an e«.«le f'^^^^/Se* "IS'fv. l" ThU =atalo,er will also 

- .?."".?^;« "., to Stale, the floppy l|> drive 1- ^^^^ „„a Olsk and 



are«.;U"i|;f ^=^^i/Ser»."= tharilU patch Itself to ^J^^-»JlXY f/o 
foSS'HsSra S»ri«ttrs-ih afthe Hard Pis. and 

'A^c"^ „ther Oro-ZOra. code yoe should 

, - riTorrt fs^^n,'"- - Uu. and in Oro. 



3le find out what is qoms " 



TI99/4 GPL-ASSBMBLBR 



6R0M 



6 - XB cat 12,17,85 



<0001> 
<0002> 
<0003> 
<0004> 
<0005> 
<0006> 
<0007> 6A78 
<0008> 6D78 
<0009> C533 
<0010> C592 
<0011> C59X 
<0012> 
<0013> 
<0014> 
<0015> 8304 
<0016> 8310 
<0017> 8312 
<0018> 8314 
<0019> 8342 
<0020> 8344 
<0021> 8356 
<0022> 8375 
<0023> 
<0024> 
<0025> 
<0026> 0073 
<0027> 0074 
<0028> 0079 
<0029> 0083 
<0030> 
<0031> 
<0032> 
<0033> 0820 
<0034> 0836 
<0035> 0828 
<0036> 0829 
<0037> 08CA 
<0038> 
<0039> 
<0040> 



GROH 6 
ADRG >1C00 



Absolute equates into 



CHKBHD BOO 
ERR EQU 
ERRSYS EQU 
ERRCIP EQU 
BRRBA EQU 



>6A78 
>6D78 
>C533 
>C592 
>C59A 



PAD equates 



PABPTR 

TEMP 

TEMPI 

TEMP2 

CHAT 

RUN 

HMPHTR 

KEY 

t 

* XML 



EQU >8304 

EQU >8310 

EQU >8312 

EQU >8314 

EQU >8342 

EQU >8344 

EQU >8356 

EQU >8375 



* Routine loads at GRAM >DC00 

version 110 X-BASIC cartridge 

Routine to check end of statement 
Error routine 

SSoTttU IH .ROa.™ error 
BAD ARGUMEHT error 



PAB pointer register 
Teaporary registers 

Last character register 
Running program flag 
DSR name length po^^ter 
Key code returned by key scan 



equates Into X-BASIC cartridge 



CHS EQU >73 

PARSB EQU >74 

PGMCH EQU >79 

SCROLL EQU >83 

t 

* VDP equates 
« 



PAB 
VBUFP 
VLENA 
VLEMB 
RCLBUF 
* 

« Mlsc 



EQU >0820 

EQU >0836 

EQU >0828 

EQU >0829 

EQU >08CA 

equates 



convert floating to string 
parse routine 
Advance character routine 
screen scroll routine 



PAB. crunch buffer area 

|?!rjai:"«^S^ in crunch hutfer 
Pile name length in PAB 
Recall buffer address 



KRACKER PACTS - PAGE 7 



<0041> 

<0042> 

<0043> 

<0044> 

<0045> 

<0046> 

<0047> 

<0048> 

<0049> 

<00S0> 

<0051> 

<0052> 

<0053> 

<0054> 

<0055> 

<00S6> 

<0057> 

<0058> 

<0059> 

<0060> 

<0061> 

<0062> 

<0063> 

<0064> 

<0065> 

<0066> 

<0067> 

<0068> 

<0069> 

<0070> 

<0071> 

<0072> 

<0073> 

<0074> 

<0075> 

<0076> 

<0077> 

<0078> 

<0079> 

<0080> 

<0081> 

<0082> 

<0083> 

<0084> 

<008S> 

<0086> 

<0087> 
<0088> 
<0089> 
<0090> 



<0091> 
<0092> 
<0093> 
<0094> 
<0095> 



00B6 
00B7 
020D 
OIOD 
0020 
0002 
0012 



RPAR 


BQU 


>B6 


LPAR 


EQU 


>B7 


READ 


EQU 


>0200 


CLOSE 


EQU 


>010D 


SPACE 


EQU 


>20 


PCTM4 


EQU 


>02 


RRTM 


EQU 


>0012 



Right paien. token 

Left paren. token 

DSR read code 

DSR close code 

Space char. 

CLEAR char. 

GROH return routine 



X-BASIC DEVICE CATALOGSR 
Loads at GRAM address >DC00 
Accessed vlth a CALL 
PAB Is Installed in Crunch buffer area 



D.C. Warren 12/17/85 



DCOO 
DC02 

DC04 
DC07 

DC09 

DCOB 
DCOD 

DCOE 
DCll 

DC13 
DC15 

DC17 
DCIA 

DClC 
DCIP 



DC21 
DC23 
DC26 
DC27 
0C2A 

DC2C 
DC2P 
DC32 

DC35 
DC37 

DC39 
0C3C 



8B,44 


CAT 


CZ 


SRUN 


Is a program running? 


45,92 




BR 


ERRCIP 


YES! Error so tell user 


D6,42,B7 




CEQ 


LPAR,§CHAT 


Do ve have a ' ( ' ? 


45,33 




BR 


ERRSYN 


NO! SYNTAX error 


OP, 79 




XHL 


PGMCH 


Advance program pointer 


OP, 74 




XML 


PARSE 


Parse to ' ) ' 


B6 




BYTE 


RPAR * 




Do, 4C, 09 




CEQ 


1 

>65,@PACf2 


Do ve have a string? 


45, 9A 




BR 


ERRBA 


NO! Bad Argument 


8P,50 




DCZ 


ePAC+6 


Is it a null string? 


65, 9A 




BS 


ERRBA 


YES! Bad Argument 


C6,51,0B 




CH 


ll,#PAC+7 


Don't allow device name 


65, 9A 




BS 


ERRBA 


greater than 11 chars. 


D6,42,B6 




CEQ 


RPAR,eCHAT 


Last char a ')'? 


45,33 


t 


BR 


ERRSYN 


NO! Syntax error 




• Set 


up PAB at V>820 






» The 
* 


next 


7 lines Bove the name over one byte 11 


86,10 




CLR 


§TEMP 




BC,11,A8 




ST 


veVLENA,@TEMP+l 


Get name length 


28 










BD,14,10 




DST 


9TEMP,8TEMP2 


Save name length 


91,10 




DIHC 


8TEMP 


Adjust TEMP 


35,00,01 


CATl 


MOVE 


l,VeVLENA-l(@TEMP),V9VLENA(§TEMP) Move a 


E8, 28,10 










E8,27,10 


















* byte over 


93,10 




DDSC 


9TSMP 


Keep going until whole 


5C,2C 




BR 


CATl 


name is moved 


31,00,09 




HOVE 


9,G$PABDAT,V8PAB 


Install PAB 



A8,20,DB 
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<0096> 
<0097> 
<0098> 
<0099> 
<0100> 
<0101> 
<0102> 
<0103> 

<0104> 
<0105> 
<0106> 
<0107> 
<0108> 
<0109> 

<0110> 
<0111> 
<0112> 
<0113> 
<0114> 
<0115> 



<0116> 
<0117> 
<0118> 
<0119> 



DC3F 38 

* Open Device 
t 

DC40 06,DB,23 CALL DSRBR 

t 

* Read fizst record 
* 

DC43 BP,A8,20 DST RBAD,VePAB 

DC46 02,00 

OC48 06,OE,23 CAT2 CALL DSRER 



Link to device 

Hake PAB a read 
Link to device 



* Put disk information on the screen 
* 

DC4B 07,80 ALL >80 Clear screen 

DC4D 34,14,A2 MOVE §TBMP2, veRCLBUP, V8>282 Put device nane up 

DC50 82,A8,CA 



DCS3 08 
0CS4 PC, 60 
DC5& FB,14 
DC58 FP,09 
DCSA 09,20,44 
OCSD 69,73,6B 
DC60 6E,61,6D 
DC63 65,30 



<0120> 
<0121> 
<0122> 
<0123> 



DC65 
DC66 
DC68 
DC6B 
DC6E 
DC71 
DC74 
DC77 
DC7A 
DC7D 

DC7P 
OC80 
DCS 2 
0C85 
DC88 
DC8B 
DC8E 
DC91 
DC94 
DC97 
DC9A 
DC90 



<0124> 
<0125> 
<0126> 
<0127> 



AO 

FP,02 

15,41,76 

61,69,6C 

61,62,6C 

65,30,20 

20,20,20 

20,20,20 

55,73,65 

64,30 

AO 

PP,02 

1C,20,46 

69,6C,65 

6B,61,6D 

65,20,20 

53,69,7A 

65,20,20 

20,20,54 

79,70,65 

20,20,20 

20,20,50 



DCAO AO 
DCAl FP, 
DCA3 IC, 
DCA6 
DCA9 
DCAC 20, 
DCAF 20, 
DCB2 20, 



20, 
20, 



02 

20,20 
20,20 
20,20 
20,20 
20,20 
20,20 



PMT 

SCRO >60 

ROV 20 

COL 09 

HTEX ' Diskname: 



ROV+ 1 
COL 2 

HTEX 'Available^ 



Used= ' 



ROV+ 1 
COL 2 

HTEX ' Pilenane 



Size 



Type 



ROW-t- 1 
COL 2 
HTEX »- 



_ I 
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DCBS 2D, 2D, 2D 
DCB8 2D, 2D, 2D 
DCBB 2D, 2D, 2D 





DCBB 2D, 20, 2D 






<0128> 


DCCl FB 


FEND 




<0129> 








<0130> 




* 




<0131> 




* Put disk name on screen 




<0132> 




* 




<0133> 


DCC2 06,DE,00 


CALL OISSTR 


Get string into FAC 


<0134> 


DCCS 88, 4B 


CZ QFACfl 


Skip i£ zero length 


<0135> 


DCC7 7C,D3 


BS CAT3 




<0136> 








<0137> 


DCC9 08 


FMT 




<0138> 


DCCA FC,60 


SCRO >60 


Put disk nane on screen 


<0139> 


DCCC FE,14 


ROW 20 


• 


<0140> 


DCCS PP,14 


COL 20 


* 


<0141> 


DCDO B9,4C 


HSTR 10,eFAC+2 


• 


<0142> 


DCD2 FB 


FEHD 


« 


<0143> 




* 




<0144> 




* Display AVAILABLE device space on screen 


<0145> 




* 




<0146> 


DCD3 A1,10,4A 


CAT3 DADO @FAC,@TBMP 


Go to next field 


<0147> 


DCD6 A3, 10, 00 
DCD9 13 


DADO 19,8TBMP 


Continue to last £ield 


<0148> 


DCDA BF,14,02 
DCDD AC 


OST >2AC,9TEMP2 


Set up screen address 


<0149> 


DCDB 06,DD,B4 


CALL DISNUM 


Display AVAILABLE space 


<0150> 




* 




<0151> 




* Display USED device space 


on the screen 


<0152> 




t 




<0153> 


DCBl A7,10,00 
0CB4 09 


OSUB 9,9TEMP 


Point to FORMATTED space 


<0154> 


DCBS 35,00,08 
DCB8 5C,B0,10 


HOVE 8,V*TEMP,eAR6 


Move it into ARG 


<0155> 


DCBB OF, 07 


m FSUB 


Developed USED value 


<0156> 


DCED BF, 14,02 
DCFO B8 


OST >2B8,9TBHP2 


Set up screen address 


<0157> 


DCFl 06,DD,BA 


CALL DISNUl 


Display USED space 


<0158> 








<0159> 




* 




<0160> 




* List catalog 




<0161> 




* 




<0162> 


DCF4 03 


CAT4 SCAH 


Scan the keyboard 


<0163> 


DCFS 5D,0B 


BR CAT4B 


Continue if no new key 


<0164> 


DCF7 06,75,02 


CEQ FCTN4,eKEY 


CLEAR key? 


<0165> 


DCFA 7D,C2 


BS DONE 


YESt Abort 


<0166> 


DCFC D€,75,20 


CEQ SPACE, 9KEY 


SPACE key? 


<0167> 


DCFF SD,OB 


BR CAT4B 


NOi Keep going 


<0168> 








<ei69> 


DDOl 03 


CAT4A SCAN 


Scan keyboard 


<0170> 


DD02 50,01 


BR CAT4A 


Loop until new key press 


<0171> 


OO04 06,75,02 


CEQ FCTN4,eKEY 


CLEAR? 


<0172> 


DD07 70, C2 


BS DOME 


YESl Abort 


<0173> 


DO09 06,75,20 


CEQ SPACE, @KEY 


SPACE key? 


<0174> 


OOOC 50,01 


BR CAT4A 


NO! Continue to wait 


<0175> 








<0176> 


ODOE OF, 83 


CAT4B XML SCROLL 


Scroll the screen 


<0177> 
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<0178> 


ODIO 


06,OE,23 




CALL 


DSRER 


Link to device 


<0179> 














<0180> 


DD13 


06,DB,00 




CALL 


DISSTR 


Get string into PAC 


<0181> 


0016 


8B,4B 




C2 


dPACfl 


Skip display i£ zero 


<0182> 


DDI 8 


7D,24 




BS 


CATS 


length 


<0183> 














<0184> 


DDIA 


08 




FMT 






<0185> 


DOIB 


PC, 60 




SCSO >60 


Put disk name on screen 


<0186> 


DDID 


FB,17 




ROV 


23 


• 


<0187> 


DOIP 


PF,02 




COL 


02 




<0188> 


DD21 


E9,4C 




HSTR 10,§PAC+2 


• 


<0189> 


DD23 


PB 




PBHD 




• 


<0190> 














<0191> 


DD24 


A1,10,4A CATS 


DADD 


9PAC,9TEMP 


Go to next field 


<0192> 


DD27 


A3, 10, 00 




DADD 


10,9TEHP 


Continue another field 




DD2A OA 










<0193> 


DD2B 


8F,B0,10 




DCZ 


V*TBMP 


Tiiae to get out if 


<0194> 


DD2B 


7D,C2 




BS 


DONE 


zero file size 


<0195> 


DD30 
D033 


BP, 14, 02 
BC 




DST 


>2BC,eTEMP2 


Set up screen address 


<0196> 


DD34 


06,DD,B4 




CALL 


DISHUM 


Display file length 


<0197> 














<0198> 


DD37 
D03A 


A7,10,00 
09 




DSUB 


9,9TEMP 


Back a field 


<0199> 


D03B 
DD3B 


3S,00,08 
4A,B0,10 




HOVB 


8,V«TBMP,§PAC 


Move it into PAC 


<0200> 


DD41 


OP, 12 




XML 


CFI 


Convert it to an int. 


<0201> 














<0202> 


DD43 


8B,4A 




cz 


@PAC 


Hon-negative? 


<0203> 


DD4S 


7D,4D 




BS 


CAT5A 


YES! Pile not protected 


<0204> 














<0205> 


D047 


BB,A2,PB 




ST 


>B9,V9>2FE 


Put a 'Y' on screen 




DD4A B9 










<0206> 


DD4B 


83, 4A 




DNE6 


9PAC 


Make number positive 


<0207> 














<0208> 


0D4D 


92, 4B 


CAT5A 


DEC 


gPACfl 


Adjust for CASE 


<0209> 














<0210> 


DD4F 


8A,4B 




CASE 


«PACfl 


Show file type 


<0211> 


DD51 


SD,5B 




BS 


DP 




<0212> 


DD53 


SD,6D 




BR 


DV 




<0213> 


DD55 


SD,7F 




BR 


IF 




<0214> 


DD57 


SD,91 




BR 


IV 




<0215> 


DD59 


SD,A3 




BR 


PR 




<0216> 














<0217> 


DDSB 


08 


DP 


FMT 






<0218> 


DOSC 


PC, 60 




SC80 >60 




<0219> 


DDSB FB,17 




ROW 


23 




<0220> 


DD60 


PP,12 




COL 


18 




<0221> 


DD62 


06,44,69 




HTBX 'Dls/Pix' 






DD6S 


73,2F,46 












DD68 


69,78 










<0222> 


D06A FB 




FEND 






<0223> 


DD6B 


SD,B5 




BR 


CAT6 




<0224> 














<0225> 


0D6D 


08 


DV 


FMT 






<0226> 


DD6B 


PC, 60 




SCRO >60 




<0227> 


DD70 


PB,17 




ROW 


23 




<0228> 


DD72 


P,12 




COL 


18 




<0229> 


DD74 


06,44,69 




HTBX »Dls/Var' 





KRACKER PACTS - 



PAGE 11 



<0230> 
<0231> 
<0232> 



D077 73,2F,56 
DD7A 61,72 
DD7C PB 
0D7D 5D,B5 



FEND 

BR CAT6 



<0233> 


DD7F 


08 


IP 


PMT 






<0234> 


D080 


PC, 60 




SCRO 


>60 




<0235> 


DD82 


FE,17 




ROW 


23 




<0236> 


0084 


PP,12 




COL 


18 




<0237> 


DD86 
DD89 
DD8C 


06,49,6B 
74,2P,46 
69,78 




HTEX 


•Int/Pix' 




<0238> 


0D8B 


PB 




FEND 






<0239> 


008F 


S0,B5 




BR 


CAT6 




<0240> 














<0241> 


DD91 


08 


IV 


PMT 






<0242> 


0092 


PC, 60 




SCRG 


1 >60 




<0243> 


0094 


PB,17 




ROV 


23 




<0244> 


0096 


PP,12 




COL 


18 




<0245> 


0098 
009B 
009E 


06,49, 6B 
74,2P,56 
61,72 




HTE2 


: 'Int/V&r' 




<0246> 


DOAO 


PB 




PEMO 






<0247> 


DDAl 


5D,B5 




BR 


CAT6 




<0248> 














<0249> 


00A3 


08 


PR 


PMT 






<0250> 


00A4 


PC, 60 




SCRO >60 




<0251> 


D0A6 


PE,17 




ROV 


23 




<0253> 


DOAA 


06,50,72 




HTEX 'Program' 






OOAO 


6P,67,72 












DOBO 


61,60 










<02S4> 


00B2 


FB 




FEND 






<02S5> 


D0B3 


5C,P4 




BR 


CAT4 




<0256> 














<0257> 


DOBS A3, 10, 00 


CATS 


DADO 


18,§TEMP 


Advavce two fields 




DOBO 


12 










<0258> 


00B9 


BP, 14, 02 




OST 


>2F9,eTEMP2 


Set ap screen address 




ODBC P9 










<0259> 


OOBO 


06,0O,E4 




CALL 


DISNUM 


Display record length 


<0260> 


OOCO 


5C,P4 




BR 


CAT4 


Do it all again 


<0261> 














<0262> 


00C2 


OP, 83 


DONE 


XML 


SCROLL 


One last scroll 


<0263> 


00C4 


06,OB,1A 




CALL 


CLSPL 


Close file 


<0264> 


00C7 


OF, 79 




XML 


PGMCH 


Parse past ' ) ' 


<0265> 


D0C9 


06,6A,78 




CALL 


CHKENO 


SYNTAX error 1£ not end 


<0266> 


DDCC 


45,33 




BR 


BRRSYM 


• 


<0267> 


D0C8 


06,00,12 




CALL 


RRTH 


Return to X-BASIC 


<0268> 






t 








<0269> 






* Pile 


error 




<0270> 






* 








<0271> 


0001 




ERROR 


BQU 


$ 




<0272> 


DODl 
DJ04 


BP,04,08 
IC 




OST 


PAB-4,ePABPTR 


Pake a BASIC PAB 


<0273> 


0005 
DD08 


BO,10,A8 
20 




OST 


VePAB,9TEMP 


Save error 


<0274> 


DDD9 


06,DE,1A 




CALL 


CLSPL 


Close file 


<0275> 


DOOC 
DODP 


BD,A8,20 
10 




DST 


§TEMP,vePAB 


Restore error 


<0276> 


DDEO 


06,60,78 




CALL 


ERR 


Return through ERR 
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DDB7 4A,B0,10 
DDBA 86,55 
ODBC OP, 73 



<0277> DDB3 24 
<0278> 
<0279> 
<0280> 
<0281> 
<0282> 
<0283> 
<0284> 
<0285> 
<0286> 
<0287> 

<0288> 
<0289> 
<0290> DDBB A2,90,55 

DOPl 60 
<0291> DDF2 BC,B0,14 

D0P5 90,55 
<0292> DDP7 91,14 
<0293> D0P9 90,55 
<0294> DDPB 92,56 
<0295> OOPD SD,BS 
<0296> DDFF 00 
<0297> 
<0298> 
<0299> 
<0300> 
<0301> 
<0302> 
<0303> 



erPB 36 • 



I/O ERROR XX 



t*t**t**tttttt***tt**t*tt**tt*tttttttt**ttttit**tttt**stttt 

* Subroutines 

« 

* Display numbez subroutine 

* ENTER: Floating nuaber in PAC for DISMUl 

* Screen address in TEMP2 
* 





MOVE 


8 . V*TB)(P . SPAC 


Move FLP number to PAC 


DISHUl 


CLR 


«PAC+11 


Indicate a free format 




XMI. 


CNS 


Convert PAC to a string 


DISNU2 


ADD 


>60,«PAC+11 


Add offset to string 




ST 


*PACfll,V*TBMP2 


Put a char on the screen 




DINC 


9TBHP2 


Increnent screen addr. 




INC 


ePACfll 


Increment PAC addr. 




DEC 


ePAC^12 


Decrement string length count 




BR 


DISNU2 


Loop until done 




RTH 




Return to caller 



Prepare a VDP string for FORMAT statement 
LSAVB: PAC has string length (word) 
PAC4-2 has string 

TEMP pointing to next string in record 



DEOO BP, 10, 08 DISSTR DST VBUPP,§TBMP 
DE03 36 



<0304> 
<0305> 



<0306> 
<0307> 
<0308> 
<0309> 



DB04 86, 4A 
DB06 BC,4B,B0 
DB09 10 
DBOA 91,10 



DEOC BS,4C,20 
OBOP 35,00,09 
DE12 4D,4C 
<0310> DB14 34,4A,4C 
DB17 BO, 10 
DB19 00 



CLR ePAC 

ST V«TE«P,ePAC+l 

DINC eTBMP 

ST >20,ePAC+2 
MOVE 9,ePAC4-2,eFACf3 



Get buffer address 

Clear MSB of FAC word 
Store disk name length 

Point to string 

Clear out string space 



<0311> 
<0312> 
<0313> 
<0314> 
<0315> 

<0316> 
<0317> 
<0318> 
<0319> 
<0320> 
<0321> 
<0322> 
<0323> 

<0324> 
<0325> 
<0326> 



MOVE eFAC,V«TBMP,§PAC+2 Move disk name into PAC 
RTH 



A close operation 

Link to device 
Return to caller 



* Close file 
« 

DBIA BP,A8,20 CLSFL DST CLOSE, V9PAB 
DBIO 01, OD 

DEIF 06,DE,2F CALL DSR 

DB22 00 RTN 
t 

• DSR LINK With error handling 
* 

DB23 06,DB,2F DSRBR CALL DSR 

DE26 7D,D1 BS ERROR Branch on no-device 

DB28 D6,A8,21 CEQ >OD,vePAB+l Check for device errors 

DB2B OD 

DE2C 5D,D1 BR ERROR 

DB2B 00 RTN Return to caller 

* 
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<0327> 
<0328> 
<0329> 



* DSR LINK routine 



t 



DE2F BF,56,08 

0B32 29 

DE33 06,00,10 



DSR OST VLBNB,§NHPHTR 



Name length pointer 



<0330> 
<0331> 
<0332> 
<0333> 
<0334> 



DB36 08 
DE37 01 



CALL >10 
BYTE 8 * 
HTNC 



call DSR 
DSR call 

Return with COND bit 



* PAB data 



<0335> • 

<0336> DB38 00,0D,08 PABDAT BYTE >00,>OD,>08,>36,>00,>00,>00,>00,>00 
DE3B 36,00,00 
DB3B 00,00,00 



Synbol Table 



DCOO CAT 


DC2C 


CATl 


DC48 


CAT2 


DCD3 CAT3 


DCF4 


CAT4 


DOOl 


CAT4A 


DDOE 


CAT4B 


DD24 


CATS 


DD4D CATSA 


DDES 


CAT6 


8342 


CHAT 


6A78 


CHKBMD 


OlOD CLOSE 


DEIA CLSFL 


0073 


CHS 


D05B 


DP 


ODEA 


DISHUl 


DOBB 


DISNU2 


DDB4 DISNUH 


DBOO 


DISSTR 


DDC2 


DONS 


0E2P 


DSR 


DE23 


DSRER 


DD6D DV 


6D78 


ERR 


CS9A BRRBA 


C592 


BRRCIP 


DODl 


ERROR 


CS33 ERRSYH 


0002 


PCTN4 


DD7F 


IP 


DD91 


IV 


8375 


KEY 


00B7 LPAR 


8356 


NHPNTR 


0820 


PAB 


DB38 


PABOAT 


8304 


PABPTR 


0074 PARSE 


0079 


PGMCH 


DDA3 


PR 


08CA 


RCLBUP 


020D READ 


00B6 RPAR 


0012 


RRTN 


8344 


RUN 


0083 


SCROLL 


0020 


SPACE 


8310 TEMP 


8312 


TEMPI 


8314 


TEMP2 


0836 


VBUFF 


0828 


VLENA 


0829 VLEHB 







EXTENDED BASIC AUTO-BOOT ("DSKl.LOAD") BYPASS PATCH 
First LOAD Extended Basic into the Gram Kracker. 

Pros the Gcam Kracker menu select 5 Memory Editor. Then press PCTN - for HEX, 
FCTN 1 £or the Gram Memory Window and then press FCTN 5 £or SEARCH. 

Type in >6300 for the START address and >6400 for the FINISH address. Press FCTN 
9 to pat the cursor in the Search String Input area and type in 86 A3 71 and then 
press FCTN S (left arrow) to put the cursor on the last byte to search for. Next 
press ENTER to start the Search. 

For most Extended Basic modules this Hex string will be found at >63CD. We'll 
call that "address A". Now press FCTN 5 to leave SEARCH and then press FCTN 9 to put 
the cursor in the Memory Window. Turn off the WEite Protect (turn it to Bank 1). Now 
change the first two bytes (86 A3) to 58 00. This is a BRANCH ON RESET to >7800 
instruction. 

Press FCTN 9 and change the Memory Window to g7800. You will see garbage here 
(UNLESS YOU HAVE PREVIOUSLY PUT SOMETHING IN THIS SPACBl I) . The GROMs are only 6K in 
length so the bytes in the last 2K are "garbage wrap around" read by the Gram Kracker 
Save routine. So, it's a good area for adding routines to your modules. 

Press FCTN 9 to put the cursor In the Memory Window and at the g7800 memory 
location, put in the following code: 

86 A3 71 CLR V9>371 Clear Auto Load needed flag 

03 SCAN Scan the Keyboard 

D6 75 20 CEQ >20,$>8375 Is the Space Bar pressed 
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{fov take your "address A" and add 6 to It 1 
>63CD + 6 = >63D3 1 

3D3 BS "address A" plus 6 bytes YBSl (Branch on Set) 

(Take your "address A", add 3 to It and replace the first digit with 4] 

063CD f 3 » 63D0 change It to 43D0 1 

43D0 BR "address A" plus 3 bytes NO! (Branch on Reset) 

For a nodule vith a >63C0 "address A" your memory window should now look like 

this: 

g7800 

S3333SSaBSSSSSSSSS3a33SSSS3S333SSSS 

86 A3 71 03 06 75 20 63 03 43 00 XX 
XX XX XX XX XX XX XX XX XX XX XX XX 

XX 3 don't care 

How restore the Write Protect, return to the Gran Kracker menu and resave your 
ntodule. 

Mow when you select EXTENDED BASIC you can bypass the auto-load command by 
holding down the space bartl (Mo more DSKl.LOAD search) 

MOTE; if you are using the GK Utility I version of Extended Basic, you do not 
need to make this change, as it is included in the GK Utility patches. 



NOTES ON THE ROM/RAM SPACE AT 
>6(9GIO - 7FFF 
by Craig Millar (MG) 

Some of the modules that contain ROM 
write to their memory space, >6000 - 
>7FFP, to switch banks or as a form of 
protection. If the module loaded into 
the Gram Kracker is of this type you MUST 
have the Vrite Protect switch, in the 
Write Protect position in order to use 
them. One example of this is TI Extended 
Basic. It writes to >6000 to enable bank 
1 and >6002 to enable bank 2 of its ROM 
memory. 

Some of the software currently 
available that loads into a Super Cart, 
>6000 - >7FPF expects RAM in this area 
and as such will only work properly if 
the Write Protect switch is MOT in the 
Write Protect position. One example of 
this is the modified Super Bug that loads 
at >6000. This program sets its 
workspace in the >6000 - >7PFF area of 
memory. 

Since you have manual control over 
the Bank 1 - Bank 2 switch it is possible 
to have 2 different 8K Assembly programs 
in the cartridge RAM area, >6000 - >7FFP. 
For example you could have the above 
mentioned Super Bug in Bank 1 and say a 
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Screen Dump program, that loads into this 
area, in Bank 2. Then with the flip of a 
switch you could have one or the other 
appear on the menu without having to 
re-load it. 

Here is some information on the Bank 
Switching of the 8K ROM/RAM cartridge 
space. 

With the WRITE PROTECT OM a piece of 
software can write to: 

>6000, >6004, >6008 ... >7FF8, 
>7FFC etc. to select Bank 1 

>6002, >6006, >600A ... >7FFA, 
>7FFB etc. to select Bank 2 

This is how Extended Basic bank 
swaps the upper 4K O7000 - >7FFF) to get 
12K out of an 8K space. This is also how 
the Atari modules do bank swapping to get 
16K out of an 8K space. 

The software you write can also do 
this with a CLR 8>6000 for Bank 1 and a 
CLR 8>6002 for Bank 2 - BUT WRITE 
PROTECTION MUST BE OH or the banks won't 
swap, you'll just clear the word at that 
address. Bank swapping is disabled when 
Write Protection Is turned off so we 
could load this space without it swapping 
banks . 
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To see bank swapping work, go Into 
the Giaa Kxacker and load Extended Basic. 
Next select 5 Memoiy Editor from the Gram 
Kracker Menu. Type In c€PFO £or the 
Hemoxy address and press PCTH = for Hex. 
Press FCTM 9 to put the cursor In the 
Hemoxy Window, make sure Vrite Protection 
Is ON and press and hold do%m the 1 key. 
As the cursor moves across the screen you 
will see the address space from >7000 to 
>7FFF svap banks. In reality the entire 
8K block is switching banks but the first 
4K O6000 - >eFFF) is the same in both 
banks. This gives the appearance that 
the last AK. is bank switching and 
simulates the 12X of Rom in the Extended 
Basic's banks. 



CHANGING THE BEEP AND HONK SOUNDS 
by Mika Oadd 



To change the sounds of the beep and 
honk, go into the GRAH Kracker memory 
editor. Press PCTH 1 for GRAM, PCTN ^ 
for hex, and PCTH 5 to search. Type 0000 
for the start, 1000 for the end. Press 
PCTN 9 to enter the search window and 
type 05 92 OA 01 9P (don't type the 
spaces). When it finds it (mine was at 
>047B), press PCTH 5 to leave the search, 
PCTN 9 to enter the memory window, enable 
bank 1, and change the OS to a new number 
(I used 10). 

Por the honk sound, follow the same 
procedure, except this time search for 20 
90 OA 01 9P. Mine was at >0489. Change 
the 20 to a new number (I used 25). 

The best %ay to hear the new sounds 
is to press CTRL a to get out of the 
memory editor, press 1 for load module, 
PCTN 3 and ENTER. That way you will hear 
both the beep and the honk. 

When you've set them to your liking, 
save GRAM to disk. 



TITLE SCREEN REDESIGN 
by Walt Howe 

tflth the help of the GRAM KRACKER 
manual, "TI99/4A INTERN" by Heiner 
Martin, and my own poking around, I have 
put together this partial guide to 
modifying GROM 0, particularly the title 
screen and character sets. I can see 
that a lot more than this can be done as 
I begin to unravel the Graphic 
Programming Language code contained In 
GROM 0, but this guide will concentrate 
on the changes that can be made by 
changing nothing more than data tables 
and text strings. 

TEXT MODIPI CATIONS; 

Most of the text on the title screen 
and the following menu screen appears in 
a single string beginning at (or near) 
memory address g048P. The string begins 
with the copyright symbol (hex OA). Por 
the sake of illustration here, I will use 
the "6** in its place. The complete 
string is "91981 TEXAS INSTRUMEHTSHOME 
COMPUTER*. The copyright character will 
not appear in the GRAM KRACKER editor in 
ASCII mode. You have to switch to hex 
mode to see the OA character. The 
copyright symbol itself is defined at 
g0998 - more about this later. If you do 
not want to keep the copyright symbol, 
you can overwrite It with whatever 
character you want or even redefine the 
symbol. The top text line on the screen 
uses the 8th through 24th characters of 
the string. The second line uses 
characters 25 through 37. The bottom 
line on the screen uses characters 1 
through 24. Count spaces as characters, 
of course, and notice that there are two 
spaces after ''1981". The top two lines 
are repeated on the following menu 
screen. The main things to realize are 
that any modifications to the string at 
g048P will appear in three different 
places, and that your replacement string 
cannot be longer than the given one.' 
Other text appears as follows: 

g014B - READY-PRESS ANY KEY TO BEGIN 

g02SD - PRESS 

g094D - POR 

GRAPHICS CHANGES; 

The Texas Instruments logo - the 
state of Texas with the embedded "t" and 
"i" - is defined beginning at or near 
g09S0. Nine special graphics characters 
are designed which fit together in a 3x3 



KRACKER PACTS - PAGE 16 



pattern to create the logo. The pattern 
is as follows: 

123 

456 

789 

The logo appeazs on the title 
screen, the menu screen, and is sometimes 
used by cartridge based programs, as 
well. If you sabstitute your own design, 
be prepared to find it appearing in 
unexpected places. The nine characters 
are defined by eight hex character pairs 
each or by 16 hex characters just as they 
are in basic/xbasic. In case you have 
one of the slightly different operating 
systems, look at or near g09S0 for hex 
characters beginning 01 03 03 03 03 03 03 
03 03 PC... . 

Immediately after the logo patterns 
appear 8 hex pairs at or near g0998 
defining the copyright sign. This 
pattern begins 3C 42 99 Al... text 
character in your own character string, 
or substitute your o%m pattern for your 
own purposes. It is identified in text 
by the hex pair OA. It will not show up 
on screen in the GRAM KRACXER editor 
ASCII mode - only the hex mode. 

EDITING COLORS & COLOR BARS; 

The color table for the title screen 
and follow-on menu screen is located at 
or near g0459, beginning with a series of 
12 hex 17's. The 17 's define the 
character set colors (black on cyan). 
You can, of course, change these to any 
other preferred text and background 
colors. Following the 17*3, the next 16 
hex pairs, all beginning with 0, define 
the different colors that appear in the 
color bars. Change these to substitute 
your own color patterns as you wish. If 
you make them all the same color, the 
bars will be a solid color instead of a 
pattern of colored squares, for example. 
Whatever you select will appear in both 
the top and bottom color bars. Finally, 
the edge color Is defined as the second 
digit of hex location g0458, which is F7. 
Change the 7 (cyan) to anything else you 
want. 

CHARACTER SETS; 

There are three character sets in 
6R0M - the large eight dot high 
capitals (with numbers and symbols - 
ASCII 32 through 95 or hex >20 through 
>6P), the 7-dot high capitals (likewise), 
and the so-called lower case characters, 
which are really small capitals. The 



NBWCHARS utility provided with the gram 
KRACXER alters the last two sets, but not 
the title screen capitals set. The eight 
dot set begins at g04B4 with a series of 
8 00*3, which is the space character, of 
course (ASCII 32 or hex >20). The 
smaller capitals begin iouBediately 
following the large capitals at g0684 
with 7 00' 3 for the space character. The 
lower case begins at g0874 with 00 20 10 
08 00 00 00 representing the grave accent 
(M or ASCII character 96 (>60) and 
continuing through character 127 (>7F). 
The set concludes at g094C, just before 
text "FOR" and the TI logo set. 

SUMMARY OF KEY ADDRESSES: 



HEX 

ADDR BEGINS WITH TEXT OR PURPOSE 



33S3 








(3=3 




014fl 


52 


45 


41 


44 


READY-PRESS ANY KEY 


025D 


50 


52 


45 


53 


PRESS 


0458 


P7 








7 is cyan edge color 


0459 


17 


17 


17 


17 


Black on cyan chars. 


0466 


06 


03 


01 


OB 


Color bar colors 


048F 


OA 


31 


39 


38 


1981 TEXAS INSTRUM 


0404 


00 


00 


00 


00 


Large capital set. 


0684 


00 


00 


00 


00 


Regular capital set. 


0874 


00 


20 


10 


08 


Lower case char set. 


094D 


46 


4F 


52 




FOR 


0950 


01 


03 


03 


03 


TI logo definition 


0998 


3C 


42 


99 


Al 


Copyright definition 



TO EXPLORE FURTHER; 

It is fairly easy to move the color 
bars, change their size, and change and 
move text and graphics, but the systems 
of numbering screen locations are complex 
and far from obvious at first look (yes, 
I meant systems . ) One of the systems is 
the consecutive numbering of locations in 
hex that is used in Assembly language. 
Another is to specify row and column 
addresses, but the addresses as they 
appear in hex code (the way you see it 
from the GRAM KRACXER) are a different 
story. Row addresses begin with AO and 
column addresses begin with 80. A third 
system is to specify row and column 
offsets from the last address. If you 
have the book "TI99/4A INTERN", this 
should be enough to help you figure out 
the addressing systems. If you do not, I 
don't advise your trying to touch this 
area unless you are a very knowledgable 
programmer. To explain the uses of the 
different systems used by the GPL would 
approach book length (and I hope someone 
writes it!). 
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CHANGING THE KEYBOARD 
by Mike Dodd 

Vith the GRAM KzackeZ/ you can 
finally change the keys on the 99/4A. 
One productive use o£ oodlfylnq the 
keyboard Is to add printer codes - add 
keys for consensed, ESCAPE (ASCII 27), 
enlarged, etc. That way, while In 
console Basic or XB, yoa can type a PRINT 
II:" conaand and type the keys, rather 
than having to use CHR$ statenents. 

Probably the best way to add new 
keys is to change the SHIFT, FCTN, and 
CTRL key codes for the SPACE and BMTER 
keys. TI left the ASCII codes the saae 
for those two keys In all the laodes. 
Here are the addresses, In GROH 0, of the 
SPACE and ENTER coabi nations. 

KBX SPACE BMTER 



FCTN 1766 • 1765 

CTRL 1796 179S 

SHIFT 1736 1735 

If they aren't right at those 
locations, you can look for them around 
there. The hex code for SPACE is >20, 
for ENTER It's >0D. 

If you want to try to change other 
keys, here are the start addresses for 
each of the six tables: 

16E0 Joystick codes 

1700 Lower case 

1730 SHIFT codes 

1760 FCTN codes 

1790 CTRL codes 

17C0 Key scan units 1 and 2 

To figure out what keys correspond 
to what codes in these tables, convert to 
decimal and conpare to the charts In the 
TI Basic laanual listing FCTN and CTRL 
keys. 

Reaeaer that all address are in 
GR0M/6RAH, and you will need to enable 
bank 1 or 2 when making any changes. 

A note about the lower case key 
scanning: when you have Alpha-Lock down, 
in the capitals position, the key scan 
routine reads the key code from the LOVER 
CASE table, NOT the SHIFT table. If the 
key is a letter (ASCII range 97-122) and 
the Alpha-Lock is down, the key scan 
subtracts ASCII 32 from the key code, 
which moves it from the lower case 
portion of the alphabet to the upper case 
portion. If, however, the Alpha-Lock is 
down AND you are pressing SHIFT, it gets 
the key code from the SHIFT table. 



One final caution: a few programs 
include their own key scan routine, and 
as such, the don't scan GROH for the key 
code. Thus, the keyboard will revert 
back to normal when running these 
programs. Two programs that do this are 
M6 Explorer and the GRAM Kracker Memory 
Editor. While these programs are few and 
far between, you should keep it in mind 
if considering any major changes to the 
keyboard (i.e. converting it to DVORAK). 
But you should not let this stop you from 
making minor changes, like adding printer 
control codes for (X) Basic. 



A FEW NOTES ABOUT MYARC'S EXTENDED 
BASIC AND THE GRAM KRACKER 
by Craig Miller (MG) 

Quite a few people have asked us 
about the MYARC Extended Basic and its 
use in the Gram Kracker. 

Part of the MYARC XB system is an 8K 
RAH Module and a new PROM for your 
128K/512K RAM Disk Cards. The module 
only contains 8K of static RAM, it does 
not contain any progzamning. The new 
PROM that is installed in your RAN Disk 
has a power up routine that loads some 
information into this 8K Ram module every 
tine you go back to the title screen. 

If you want to use this XB with the 
Gram Kracker simply leave the Vrite 
Protect switch in the Bank 1 or Bank 2 
position and then press RESET. This will 
allow the MYARC PROM to down load its 
Information into that RAM Bank in the 
Gram Kracker, and appear on your menu. 
You MUST leave the Vrite Protect switch 
in the Bank 1 or 2 position in order for 
MYARC 's XB to execute properly. 

One thing to remember is, whatever 
was in the selected Ram Bank will be 
wiped out by the 128K/512K power up 
routine. (See the article on disabling 
the MYARC RAM-disk to fix this problem - 
HDD.) So if you had TI Extended Basic 
loaded into the Gram -Kracker and you left 
the Vrite Protect switch turned off, then 
both XBs would appear on the menu BUT 
only the MYARC XB will work. TI Extended 
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Basic contains 2 banks o£ ROH and one o£ 
then will be wiped out so it will not 
execute properly. 

There are a number of TI modules 
that do not contain any ROM they only 
contain GROH. As such these modules can 
properly reside in the Gram Kracker along 
with Myarc's XB. To £ind out i£ a module 
contains ROM simply plug it into the Gram 
Kracker 's Module port and select 5 BDIT 
MEMORY. Next press FCTN ^ for HEX and 
set the address to CSOOO. If the memory 
window is full of 00 or FF, depending on 
your console, then that module only 
contains GROH. k few of the popular 6R0M 
only modules are, Editor/Assembler, TI- 
filter. Disk Manager I II, Multiplan 
and PRK. A £ew of the ROM/GROM or ROM 
only modules are TI Extended Basic, Mini 
Memory, Atari and most other third party 
modules. 



DISABLING THE MYARC RAM-DISK POWER UP 
by nikm Dodd 



If you have the MYARC XBII 
cartridge, you hav& noticed that the 
RAM-disk always wipes out your ROM bank 
if you forget to enable the write 
protection. The following patch will 
disable the power up routine in the 
RAM-disk, which prevents it from clearing 
-out your ROM bank. Now yon can leave the 
write-protect off (e.g. to act as a 
Super-cart) and not worry about it being 
zapped! 

To make the change, enter the GRAM 
Kracker Memory editor. Press PCTN- 1 to 
select GRAM, and FCTN 5 for search. Type 
0000 for the start, and 0300 for the end. 
Press FCTN 9 to enter the search window 
and type 8780D0. Press FCTN S to back 
the cursor onto the "0" in DO, and press 
ENTER. When it finds the string (mine 
was at g0183), press FCTH 5 to leave the 
search and FCm 9 to enter the memory 
£leld. Write down the address it Is at. 

Now disable write protect and type 
0SI9OA. Press FCTN 9 again, use FCTN S 
to back over to the memory address, and 
type 190A. Press FCTN 9, ENTER to home 



the cursor, and type BF 80 00 11 00 BF 80 
D2 40 04 05. Now take the address you 
wrote down and add 3 to it O0183 * >0003 
- >0186). Type that address. Turn your 
write protect back on, press CTRL = to 
leave the editor, and re-save GROM to 
disk. To save GROM 0, press 4 for 
Load/Save console, 3 for GROM 0, and 2 
for Save console. Type the filename and 
press ENTER. Press space (the correct 
GROMs are already enabled), let it finish 
saving, and press space again. That's 
all there is to it! 

I£ you wish to run MYARC XBII, 
disable your write protection, change 
switch 2 from GRAM to Op Sys, and press 
reset. Vith SRAH loaded, the patch is 
not in effect, so the MYARC RAM-disk will 
execute its normal power up routine. 
Vhen the title screen appears, you can 
re-enable GRAM and proceed as normal to 
load MYARC XBII. 

Final note: if your RAM-disk is not 
backed up by an external power supply, 
you MUST run the power-up routine when 
you first turn the computer on. After 
that. If you reset the system you will 
not need to run the power-up routine 
again, ou have to run it the first time, 
otherwise the CALL PART and CALL EMDK 
commands will crash. To run it without 
it crahing your RAM bank, disable GRAM 
(turn to Op Sys) when you turn on the 
computer, making sure that the 
write-protect is on. hen the title 
screen appears, enable GRAM and don't 
worry about it again. 



CHECKING THE W/P SWITCH IN XBASIC 
by Mike Dodd 

As you nay have noticed, 1£ you 
enter Extended Basic with the write 
protection off, your cosiputer will lock 
up. If it doesn't immediatly, it will as 
soon as you type a command. This patch 
will make XB check the position of the 
write protect every time you enter XB. 
If the V/P is off, it will reset to the 
title screen and refuse to let you enter 
the cartridge. 

To make the patch, load your GX 
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utility I vezsion o£ Extended Basic. 
Type G6372 for the memory address, FCTM = 
for hex aode, and FCTM 9 to enter the 
menory window. Enable bank 1 and type 06 
D8 PB (don't type the spaces, they're 
just a guide). Press PCTH 9, back the 
cursor up over the meaory address, and 
type D8FB. Press PCTH 9 and ENTER to 
hone the cursor, and type: 

86 A3 70 86 8F PC PA BD 00 8F ED 00 
86 8F PC PC DS 00 8F BD 00 59 13 OB 
00 

How, restore write protect, press 
CTRL = to leave the nenory editor, and 
resave your cartridge to disk. 



CHANSING THE XB "LIST" WIDTH 
by Craig Miller (MO) 



With Extended Basic loaded into the 
Gran Kracker you can change the LIST 
"device" width for your output device. 
This allows you to easily list your 
programs to printer in 28 columns,- 132 
columns or any width you choose. This 
same change will also change the DIS/VAR 
file width if you LIST to disk. 

To make this change load Extended 
Basic into the Gram Kracker and then use 
the Gram Kracker 's Edit Memory selection. 
Next press PCTN = for Hex, PCTR 1 for 
Gram Memory and FCTM 5 to activate the 
Search function. The Start address is 
9000 and the Finish address is 9800. The 
Hex string to search for is: 00 12 00 00 
00 

Vhen this is found press PCTN S to 
leave Search and PCTN 9 to put the cursor 
in the Memory Window. Turn on Bank 1 to 
disable Write Protection and move the 
cursor to the third 00 after 12 and 
change it to the width you would like (in 
Hex). In our XB this was found at g9170 
and the byte to change was at g9174. 
Examples : 

00 12 00 00 00 = default 80 column . 
00 12 00 00 IC - 28 column listings 
00 12 00 00 84 132 column listings 
00 12 00 00 PE = 254 column listings 



The area you are changing is part of 
the default PAB for an Extended Basic 
LIST to a device. Since most of it is 
zeroed out it allows the card's DSR (i.e. 
RS232 or DSK) to set its own default for 
width. When you place a value here the 
card will use it instead of the default 
of 80 (>50). 

If you want to LIST a 28 column 
program to disk and then load it into 
Tl-Writer or the E/A Editor you will need 
to convert the file back into DIS/VAR 80 
format. To do this simply run it through 
the following XB program, where TEST is a 
DIS/VAR 28 file and TESTA will be the 
DIS/VAR 80 file to be loaded into an 
editor. 

100 OPEN tl:"DSKl.TEST",VARI 
ABLE 28 

110 OPEN 12: "DSKl. TESTA" 
120 LINPUT II: AS 
130 PRINT f2:A$ :: PRINT AS 
Itt) IF B0F(1)THEN CALL CLSAL 
L ELSE 120 

If the file is large you can easily 
convert it from DIS/VAR 28 to DIS/VAR 80 
with a sector editor such as Advanced 
Diagnostics. To do this find the Pile's 
Header (Pile Descriptor Record) by doing 
a Find Pile. The "Sector" pointer at the 
top of AD's screen points to the File's 
Header Sector. Edit this sector and 
change the 17th byte, in hex, from IC to 
50 and. then rewrite the sector. NOTE: 
This will only work If you are converting 
files to a longer logical record length, 
i.e. DIS/VAR 28 or DIS/VAR 40 into 
DIS/VAR 80. It won't work for longer to 
shorter, i.e. DIS/VAR 132 or DIS/VAR 254 
into DIS/VAR 80 

NOTE; if you are using the GK 
Utility I version of Extended Basic, you 
do not need to make this change, as 
Included in the GX Utility patches are a 
method of setting the line width with the 
LIST command. 
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EXTENDED BASIC CALL INIT CORRECTION 
by Craig Millar (MS) 

Presently the CALL INIT loads >600 
bytes starting at >2000 in Lov Expansion 
Memory but only >4P3 bytes need to be 
moved. Because of this, sose routines 
that were loaded into Low Expansion 
Memory get overvritten. The patch 
corrects this situation. 

Vith BXTSNDBD BASIC loaded in the 
Gram Xracker, select 5 Memory Editor from 
the Gram Kracker menu. 

Press FCTM = for HEX, PCTH 1 for 
Gram Memory Window and then PCTH 5 for 
SEARCH; 

Type in C200- for the START address 
and C300 for the FINISH address. Press 
PCTN 9 to put the cursor in the Search 
String Input field and type in 31 06 00. 
Press PCTN S (left arrow) to place the 
cursor on top of the last byte to search 
for and press enter. 

Turn off Vrite Protection, press 
PCTN 5 to leave SEARCH and press PCTN 9 
to put the cursor in the Memory Window. 
Now replace 31 06 00 with 31 04 P3. 

Restore write protect, return to 
Gram Kracker loader and resave module. 

CALL INIT will now work "a little" 
quicker and it will not move unnecessary 



bytes out to Low Memory Expansion. 

NOTE! if you are using the GK 
Utility I version of Extended Basic, you 
do not need to make this change, as it is 
included in the GX Utility patches. 



CHANS INS THE CURSOR SHAPE 
by Mike Dodd 

To change the cursor shape, in 
XBasic and Basic, search for 00 7C 7C 7C 
7C 7C 7C 7C. With XBasic, search from 
g6000-7800. With Basic, search from 
g2000-3000 (remember to turn off the 
loaderl). With the Editor/Assembler, 
search for 00 7E 42 42 42 42 7E 00 from 
g€000 to g7800, unless you've moved it 
elsewhere. If you moved it to Gram 7, 
search from gB0O0-gP80O. Once you find 
it, change it to whatever shape you 
desire. It's the same format as in a 
CALL CHAR statement. Remember to turn 
off write protect before you change it 
and then turn it back on when you're 
done. 



SK UTILITY 1 ENHANCEMENTS AND MODIFICATIONS 
by Tom Freeman, LA 99ers 

RBTAIM GRAMS 1 AMD 2 PGR YOUR OWN USE 

Some users who have loaded Danny Michael's fine new combination Extended Basic 
and Editor/Assembler modules into their Gram Krackers may wish to preserve the use of 
Tl-Writer at the same time. I had previously loaded GRAHs 1 and 2 with B/A and TI-W 
respectively, and thus this new program, which uses these two GRAMs to hold the ASSMl 
and ASSH2 files for rapid loading, were no longer available. I had already modified 
these modules to load the files from my RAMdisk. which is also quite rapid, so I did 
not need Danny's rapid loader. However, I did wish to use the combination and make 
use of the other enhancements, such as cataloging from B/A and preserving file names. 

The following modifications to your PIMISHED files will accomplish the task. 

Essentially, I went to the area of Danny's code where the assembler was loaded from 

GRAM into CPU, and changed it back to the original E/A code, with some address changes 

because of the move to GRAH 7, and screen location changes. All the other routines 
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used by 8/ A to get the piogran £ron the disk were preserved. 

To accoB^E^lish the changes, go to the 6SAM KRACXER oenory editor (press 5 on 6K 
title screen), then PCTH 1 to get to GRAM laemory, PCTH = to get to HBX, enter, and 
then type in E658. You should see in the menory window code beginning with the 
following bytes: 06 ?A 60. Press PCTN 9 to replace the first three lines of code with 
the following (where you see ASCII text you can type in ASCII, which saves half the 
typing - also reaeober to push the V/P switch to Bank 1 or 2 while you are typing) : 

gB658 08 8B Al 14 4C 6F 61 64 20 41 73 73 '**«*Load Ass' 

g8664 65 6D 62 6C 65 72 28 59 2F 4E 29 3F •eBbler(Y/M)?' 

gB670 20 FB 06 E7 9F D6 75 OF 60 5A D6 75 • *****u*'Z«u* »««*nv«***v*' 

g867C 48 60 5A 06 85 82 86 28 06 85- D4 BP •N*2***«(****' • «««««R«««*t_' 

Defaults for Assembler Source Code File 

Danny's mods retain separate default areas in GRAM 2 for all the file or device 
names you input - only those for LOAD and SAVE file in the Bditor are the same. I 
personally wish to have the last file name I ased for SAVE in the Editor appear as the 
default for the Source Code in the Assembler, since I normally assemble source code I 
have just written and saved. This is easily done by positioning the cursor after the 
g in the upper left corner, typing P347, then PCTH 9 to get in the memory window. 
Replace the first byte 4C with 88 (V/P off!). 

While you are making changes, you might consider the following: 

1) if you are in fact loading the TI-V and 8/A utility files from RAHdisk, then 
you should change the device name/number at gB61B (I use DSK4.) The length should 
still be 5 bytes. 

2) I have also changed the name of the default program name for option 5 Run 
Program File from UTILl to another name. You can do this at gB62D (see article on 
changing drive defaults elswhere in Kracker Pacts). 

3) The format RAMdisk option from Danny's main B/A screen does not work if you 
have the RAMdisk with XBaslc, because the CALL PART now requires three numbers rather 
than 2. To make sure you do not choose this option by mistake, go to gB0F8 and change 
the words "Format RAMdisk" to "Hon-valid Key " and change the bytes at g805A from 52 
Bl to 40 5A. You will now stay on the menu screen if you hit 7. 

BE SURE you have saved your original modified module BEFORE you make the changes. 
You should now save your newly modified module under a different name. GRAMs 1 and 2 
will no longer be used for the ASSM files- and you can go back to keeping other modules 
in this space, so long as the high bytes in GRAM 2 from 5ED4 to 5FFF are not used 
(Danny uses them to hold the default file names in E/A). Also note that because these 
2 GRAMS in the GK are not used, Danny's mods are now also useful in the 56K version of 
GRAM KRACXER. However the default file names for E/A mentioned above will no longer 
work; you would always see garbage when you are prompted for a file nam. It is 
easily eliminated with FCTO 3. 

Using M8AVB 

As there are still 2609 bytes of memory free at the toj^ of the E/A in GRAM 7 
(from >PSCS on) you could still store a few short Basic programs if you use the 
following (slightly cumbersome Kaethod : 

1) If you are using GRAM 2, save it using Option 4 Load/Save Console from the GX 
main menu. The third switch must be in the GRAM 1-2 position. Also save the "module" 
(Menu 2) since we will be clearing the module space. If you have a 56X GX without 
GRAMS 1-2 see HOTS below. 

2) Hove the entire contents of GRAM 7 to GRAM 2 (Gram memory - FCTN 1 until a g 
appears in the upper left corner if it isn't already there, BOOO for Start, FFFF for 
Finish, g4000 for Dest, then PCTH 2 to move). 

3) Initialize the module space (Menu 3). 

4) Load nodule (Menu 1) with MSAVB from the original GK utility disk. 
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5) Go back to the Memory Bdltor (Menu 5), FCTN I to get to G aeaory, FCTN = for 
HEX. Press enter, then type in B012. In the memory window you should see B2 B7 E2 
B7. Press PCTM 9 to get the cursor in there, then type TSrSTS CB (W/P offt), FCTN 
9 again, move the cursor back over the menory address and change it to EIDO, FCTN 9 
and change this E2 B7 to F5 CB also. 

6) Move the 35 bytes at B2B7 to F5CB by entering B2B7 for Start, B2D9 for Finish, 
and gFSCB for Dest. Then PCTM 2 to move. Put Switch 4 back in ¥/P position. 

This new MSAVB will save Basic programs starting at F5CB, rather than B2B7, 
leaving enough room for the B/A nodule. Save it with a new name (such as MSAVB plus 
your initials) with Menu 2 

You laay now go to Basic (GRAM 1-2 switch down and Loader OFF), enter your basic 
programs, and save them by entering CALL MSAVB. Wien you are done, and guit Basic, 
you should see them on the main console menu. 

Now go back to the GRAM KBAOCER, and save module again (using yet another name, 
just in case). You are now ready for your final oodification of GRAM 7. 

7) Go back to the GX Memory Editor, FCTN 1, FCTN », and examine the 2 bytes at 
B012. This represents the first free address after your programs. Therefore you will 
want to save all the bytes from F5CB to that address. 

8) Making sure that g is in the upper left corner, and 3rd switch is in GRAMS 1-2 
position type in F5CB for Start, the bytes you just found for Finish, and g55C8 for 
Dest, and press FCTH 2 to move. 

9) The final change is at g4010. This is the address for the next application 
header after Editor/Assembler and must contain FSCB. Type it in. 

10) Reload the nodule you saved in Step 1). 11) Move the entire- modified 
contents of GRAM 2 to GRAM 7 by typing 4000 for Start, 5FFF for Finish, gEOOO for Dest 
and then press FCTH 2, 

12) Save your new "module" with resident Basic programs under a new name. 
Remember that to USE these Basic programs the loader must be OFF, and switch 3 must be 
in TI Basic position. 

NOTE: If you have a 56K 6K, make the follwing changes in above steps: 

1) You can't save GRAM 2 

2) Move GRAM 7 to GRAM 3 by using gfiOOO for Dest, HOW clear everything else by 
a) Start 8000 Finish FFPF, W/P to Bank 1, FCTH 3 (FILL), b) PCTM 1 twice to get to 
CPU memory. Start 6000, Finish 7FFP, FCTN 3 c) switch W/P to bank 2 and hit FCTH 3 d) 
Save "module" (Menu 2} - this should give you one file on disk e) W/P OH (mid 
position) . 

3) to 7) are the same 

8) First reload the "module" you saved in Step 2d). Then move the bytes with 
g75CB as Dest 

9) The change is at gfiOlO. BEFORE going to next step, a) Move GRAM 3 to <3RAM 7 
(Start 6000 Finish 7FFP Dest gEOOO, W/P to Bank l-> FCTH 2 b) Clear GRAM 3 (Start & 
Finish the same, FCTH 3) c) W/P OH (mid position) d) Save module - this will give GRAM 
7 only. 

10) is the same 

11) Load the "module" saved in 9d) 

12) is the same 

All this is not as complicated as it sounds - I just detailed nil the steps so 
you won't make any mistakes. 
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EXTENDED BASIC PROGRAM LOADER 
program by Miko Dodd 
technical in-forination by Tom Fraeman 
article by Mike Dodd and Tom Freeman 

I once asked Craig- Miller whether It was possible to run XBasic programs directly 
o£€ the nenu, as HSAVE does with Basic programs. The answer was no, and essentially 
that is true, at least as far as having them run directly from GRAM is concerned, 
since the XML instruction needed exists only in Basic. But I kept on thinking that if 
XBasic can load a program called LOAD automatically from drive II, why can't it do 
others as well! What follows is a program for doing this I The method involves the 
following concept: when XBasic starts up, it does a certain amount of housekeeping, 
and then Inserts the string DSKl.LOAD into the crunch buffer in VDP ran, preceded by 
the length byte >0B and followed by byte >00, and then "pretends" that you typed it in 
with RUH, and runs it. It turns out that this area is never touched by the 
housekeeping chores, and hence can be done right at the start. Thus my method 
involves inserting the program name of your choice there instead, and setting up 
proper code to make an additional item on the menu. If the program isn't there, you 
get the same result as XBasic if LOAD isn't in drive 1 - Just the "ready" prompt. 

When you run the program, it first checks to see if the WRT6RM subroutine is 
loaded. If not. It attempts to load an object file called DSKl.WRTGRM/0 (see article 
on writing to GRAM from XB elsewhere in Kracker Pacts). After the routine is loaded, 
or if it is already loaded, the program presents a title screen and asks you to enter 
the start hex address to store the loaders. You should consult your 6X Utility I 
manual for the locations of free space. A good place to store it is starting at hex 
B601 and continuing to B7PP, which is enough room for many loaders. If you are not 
using the GK Utility I version of Extended Basic, you can use 7800-7PPP, 9800-9PPP, or 
B800-BFPF, as these areas are free. Hote that if you install the auto-load bypass 
patch into XB (see elsewhere in Kracker Pacts), 7800-780A are used. After you enter 
the address, it will instruct you to enable bank 1 and press PCTH. Do so. It will 
then instruct you to restore the write protect switch and press FCTN. Again, do so. 

How it will ask you for the menu entries. The program will display the current 
hex address. You should be sure that it does not go past the last free address in 
your memory space. If it does, you should break the program and re-run it to avoid 
overwriting existing code in your cartridge. The computer will now ask you for the 
name to be placed on the menu. The name may not be more than 18 characters long, and 
it must be in all capital letters. It will then ask you for a filename (e.g. 
DSKl.MBHU, DSKR.PTO, RD.XXB). Note that the filename can not be greater than 15 
characters. After you enter the filename, the program will tell you if either of the 
entries are too long. After a short pause, the program will prompt you for another 
menu name and filename. When you are done entering all the loaders you wish to 
install, enter »** (three SHIFT 8s) for the menu name. The computer will then prompt 
you to enable bank 1 and press PCTM. Do so. The computer will now writ*.- the loaders 
out to the Extended Basic cartridge. After it is done it will prompt you to restore 
the write protect and press PCTM. After you press PCTM, the program will end. You 
may now type BYS, enter the GRAM Kracker Loader and save your modified cartridge. 

By the way, after the GXXBLOAD program is a short program that I (T.P.) wrote 
allowing you to set up all your favorite programs to run without typing in the names: 
you merely insert them in the DATA statement, and follow the last with a "". If you 
save this program on your-utility disk and create a menu entry for it with GKXBLOAD, 
you will quickly get a menu of these programs when you press the "MISC. PROGRAMS" key 
and be able to pick your program with one more- key press. This way you can still have 
the auto load of DSKl.LOAD for use with programs that need it. Por this program to 
run properly you MUST type in line 170- first, exactly as writtenl 
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100 DBF A(B)=B-6553fr«(B<0>:: 
DBF A$(B)>CHR$(INT(A(B)/2S6 
))£CHR$(B AMD 255):: OPTIOH 
BABB 1 

110 ON ERROR 120 :: CALL LIN 
K("VRTGRM"):: ON ERROR STOP 
:: GOTO 130 

120 CALL INIT :: CALL LOAD(" 

DSKl.WRTGRM/O") 

130 DISPLAY AT(1,1)ERASB ALL 

:"XBasic pzogzaas diiect £zo 

m the aain menu": : "require 

s 6RAH Kracker (tm)" 

140 DISPLAY AT( 5,1): "Program 

by Milce Dodd": : "Technical 
Infornation by Tom Preeaan, 

LA 99ers" 

150 DISPLAY AT(10,l):"SUzt 
6R0M address?" : : ACCEPT AT( 
10,21) :C$ :: CALL HD(C$,BC) 
160 CALL LINK ("TOTGRM", 25554 
,CHR$(149), 25403, A$(BGnO)&A 
$(B6),BG,"1"SCHR$(0)£CHR$(11 
)4CHR$(168)«" cQ"SCHR${5)«"c 



r") ■# 

170 DIM B$(15):: E=0 :: CALL 
KEY(3,F,G):: H=BG+10 
180 CALL DH(H,CS):: PRINT "( 
now at •;C$;")" :: INPUT "Me 
nu name? (*** to end) - ": 
C$ :: IF C$="*«*" THEN 230- B 
LSB INPUT "Filename? ":D$ 
190 B«LEH(C$):: C=LEN(D$):: 
IF B>18 OR 015 THEN PRINT " 
ERROR - HAX^ LEHGTIf FOR MENU 
NAHB IS 18, MAX FOR FILENAME 
IS 15" :: GOTO 180 
200 E»B4-1 :: B$(B)»A$(0)&A$( 
H-<-74B-t-C ) £CHR$ ( B ) &C$£CHR$ ( C ) & 
D$&CHR$ ( ) S " 1 " SCHR$ ( ) £CHR$ ( 
C+2)«CHR$(168)&" ■SA$(H+5+B) 
fiCHR$(5)4"cr" 

210 IF B>1 THEN B$(E-1)=A$(H 

)«SEG$(B$(E-1), 3,255) 

220 H=H-i-LEN(B$(B)):: IF B<15 

THEN 180 
230 CALL SOUND(200,1200,0):: 

DISPLAY ERASE ALL 



240 D=l :: DIM E$(2):: E$(l) 
,E$(2)="" :: FOR B=l TO E : : 
IF LEN(E$(D))fLBN(B$(B))>2S 
5 THEN D=D+1 :: B»B-1 ELSE B 
$(D)=E$(D)&B$(B) 
250 NEXT B :: IF D=l THEN CA 
LL LINK{"WRTGRM",BG+10,B$(1) 
):: END 

260 CALL LINK("WTGRM",BG+10 
,B$(1) ,BG+10+LBN(B$( 1) ) ,B$( 2 
-)):: END 

270 SUB HD(A$,A):: A=0 :: FO 
R X=3 TO STEP -1 :: A=A+16 
*X*(POS("0123456789ABCDBF",S 
BG$(A$,4-X,1),1)-1):: NEXT X 

271 A=A+65536*{A>32767):: SU 
BEND 

280 SUB DH(B,A$):: T=B-65536 

*(B<0):: A$="" 

290 Q=INT(T/16):: R=:T-16*Q : 

: AS=SEG$("0123456789ABCEF", 

R+1,1)&A$ :: IF Q THEN T=Q : 

: GOTO 290 

300 3UBEND 



100 DATA RD.PR01,RD.PR02,"" 
110 CALL CLEAR 

120 X»xn :: RSAO A9(X)-:: IF 
A$(X)<>"" THEN 120 
130 DISPLAY AT( 1,1) BEEP: "PRE 
SS FOR" :: FOR Y=l TO X-1 :: 



MEMULOAD 

DISPLAY AT(2«Y+1,2);Y;" ';A 
$(Y):: NEXT Y 

140 CALL KBY(0,K,S):: IF S=Q 
THEN 140 ELSE K-K-48 
150 CALL INIT :: B$-A$(K):: 
L»LEN(B$):: CALL LOAO(-45,L+ 



I):: CALL LOAD(-42,L) 

160 FOR X=l TO L :: CALL LOA 

D(X-42,ASC(SBG$(B$,X,1))):: 

NEXT X :: CALL LOAD(X-42,0) 

170 RUN "0123456789ABCDEF" 



A ROUTINE TO WRITE TO GRAM FROM XB 
by Mike Dodd 

Although the GK Util I version of Extended Basic includes a P0KE6 routine, it is 
not useful for prograos to modify Extended Basic because of the fact that if you 
disable the write protection, XB will lock up. I have written an assembly subroutine 
for Extended 3asic that prompts the user to enable and disable the write protection. 

To use the VRT6RM subroutine, use the format: 

CALL LINK ( "WRTGTM"t , address, str-var. . . I ) 

In other words, you must specify a decimal address and a string containing the 
data to write. If you wanted to write a hex 00 01 02, you co'ild use: 
A$=CHR$ ( ) £CHR$ ( 1 ) &CHR$ ( 2 ) 

The address must be from -32768 to +32767. If the address is greater than or 
equal to 32768 (hex >8000), you must subrtract 65536 fro».tt- (IF ADDR>=32768 THEN 
ADDR-AODR-65536 ) . 

You may pass multiple data sets to the ¥RTGRH routine. If you wanted to write 
the data in A$ to GROH >2000 (decimal 8192) and the data in B$ to GROH >A000 (decimal 
40960 - 65536 = -24576), you would use: 
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CALL LINK( "WITGRM", 8192, A$, -24576, B$) 

You can pass up to seven data sets in one CALL LINK this vay. 

You also have the option of not specifying any data - just a simple CALL 
LINK("WITGRM"). This will not do anything, other than let your program verify that 
VRTGRM is present in oemory. Foe Instance: 

100 OH ERROR 110 :: CALL LINK( "VRTGRH") : : GOTO 120 

110 CALL IMIT :: CALL LOAD( "DSKl.TOTGRM/0") 

120 program continues... 

When WRTGRM is executed, it first checks to see if any parameters were passed to 
it. If not, it returns to X8. If so, it displays on the screen (at row 13, column 5) 
a message prompting you to enable bank 1 and press FCTN. After you enable bank 1 (or 
two, it really doesn't matter), press the PCTM key. «hen it is done writing all the 
data passed to it (almost instantly), it will prompt the user to restore write protect 
and press PCTM. Move switch 4 back the the center (write-protect) position and press 
the PCTM key. 

For an example of the use of VRTGRM, examine the listing of my 6KXBL0A0 program 
(article elsewhere in Kracker Pacts). 
Here is the source code to VRTGRM: 



A AAA 

0001 


> VRIT8 TO ORAM FROM EXTENDED BASIC 


AA i A 

0040 


• 


PRINT "ENABLE BANK. 1... 


H 


0002 


* COPYRIGHT 1987 BY MIKE DODD 


AA A 1 

0041 






LI 


R0,>184 




0003 


* 116 RICHARDS DRIVE 


A A J 

004Z 






LI 


R1,BANK1 






* OLIVER SPRIHGS, TH 37840 USA 


UUl J 






LI 


R2,24 




QUQd 


* 615/435-1667 


UU44 






BLIP 


9PBASIC 




Anne 




DEF 


VRTGRM 


nni<t 






CLR 


R12 




A AA'V 

0007 




IDT 


•MIKEDODD* 


UU40 


* 


VAIT 


FOR FUNCTION KEY TO BE PRESSED 


AAAO 

OOOo 


V¥A 


BQU 


>8C02 




FCTNl 


TB 


7 




0009 


WD 


BQU 


>8C00 


AAA 






JEQ 


FCTNl 




0010 


GVA 


BQU 


>9C02 


0043 






CLR 


R8 




0011 


GRA 


EQU 


>9802 


AACA 

oodo 


A 




CLR 


RO 


NOT AN ARRAY 


0012 


GVD 


EQU 


>9C00 


A A C i 

0051 






INC 


R8 




0013 


NUMREF 


EQU 


>200C 


A A C O 

0052 






MOV 


R8,R1 


PARAM. NUMBER 


0014 


STRRBP 


BQU 


>2014 


A A f ^ 

0053 






BLVP 


gNUMRBF 


GET NUMBER 


0015 


FAC 


EQU 


>834A 


0054 






LVPI 


>83E0 


GPLVS 


0016 


HPF 


BYTE 


>FF 


A A f e 

0055 






BL 


@>12B8 


FLOATING- > INT 


0017 


BAHKl 


TEXT 


•Enable bank i&press FCTN' 


UU3D 






LVPI 


MYVS 


MAIN VS 


0018 


BANKO 


TEXT 


'Restore V/P & press FCTN' 


0057 






MOV 


ePAC,R9 


GET ADDR 


0019 




-EVEN 




0058 






CLR 


RO 


NOT AN ARRAY 


0020 


* PRINT VITH BASIC OFFSET. IN: RO=VDP 


0059 






INC 


R8 


STRING 


0021 


* A0DR,R1-CPU ADDR OF TEXT,R2»LBMGTH 


0060 






MOV 


R8,R1 




0022 


PBASIC 


DATA 


SUBWS1,PBAS1 


0061 






LI 


R2,BYTBSL 


SPOT FOR DATA 


0023 


PBASl 


MOVB 


*R13,R0 
n(Rl3),@WA 


00&2 






MOVB 


§HPF,*R2 


255 CHARS 


0024 




HOVB 


0063 






BLVP 


9STRREF 


GET IT 


0025 




ORI 


R0,>4000 


0064 


* 


SAVE 


CURRENT 6R0M/GRAM 


ADDRESS 


0026 




MOVB 


RO,eWA 


0065 






HOVB @GRA,R7 




0027 




MOV 


e2(R13),R0 


0066 






SVPB 


R7 




0028 




MOV 


e4(R13),Rl 


0067 






MOVB eGRA,R7 




0029 


PBAS2 


MOVB 


*R0+,ft2 


0068 






SVPB 


R7 




0030 




AI 


R2,>6000 
R2,9WA 


0069 






DEC 


R7 


CORRECT 


003L 


MOVB 


0070 


* 


SET < 


SRAM ADDRESS 




0032 




DEC 


Rl 


0071 






MOVB R9,eGVA 




0033 




JNE 


PBAS2 


0072 






SVPB 


R9 




0034 




RTWP 




0073 






MOVB 


R9,@GVA 




0035 


VRTGRM 


LVPI 


MYVS 


0074 






MOVB 


9BYTBSL,R9 


GET LENGTH 


0036 


* GET 


1 PARAMETERS. IF 0, RETURN 


0075 






SRL 


R9,8 


TO LSBY 


0037 




MOVB 9>8312,R6 


0076 






LI 


RO, BYTES 


START OP DATA 


0038 




JEQ 


RETURN 


0077 


B 




MOVB 


*RO^,@GVD 


VRITE TO GRAM 


0039 




SRL 


R6,9 TO LSBY S /2 


0078 






DEC 


R9 


DONE? 
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0079 JNB B HO 

0080 * RESTORE OLD GROM/GRJUi ADDRESS 

0081 MOVB R7,8GWA 

0082 SVPB R7 

0083 MOVB R7,@GVA 

0084 DEC R6 ALL OF 'EM? 

0085 JNE A HO, MORE 

0086 * WAIT TILL USER LETS GO OF FCT» 

0087 PCTN2 TB 7 

0088 JNE- FCTN2 STILL PRESSING 

0089 * PRINT "RESTORE W/P..." 

0090 LI R0,>184 

0091 LI R1,BANK0 



E/A-GRAMOSK INFORMATION 
by Craig Millar (MG) 

I£ yoa are using the B/AGRAMDSK 
version for your Editor/Asseobler module 
in the Gram Xracker you can enhance the 
cursor reaetion time with the following 
changes. First load your E/AGRAMDSK 
version of the E/A into the Gram Kracker 
and then use the Edit Memory selection to 
change the folloving two items, in hex: 

1. Edit g7AA6, it currently contains 06 
FF change it to 03 FF. This is part 
of the delay befoxe a key goes into 
auto repeat. 

2. Edit g7BBB, it currently contains OA 
00 change it to 00 01. This is a 
delay loop between keys. 

VI th these two changes in place you 
will notice that the cursor now moves a 
little faster around the screen and that 
it goes into auto repeat a little faster. 
The cursor blink speed is determined by 
the byte value at g7AA9. It is currently 

03. changing it to 01 blinks faster and 
OF blinks real slow. 

These items were found by using 
DISkASSEMBLER to disassemble the BDITl 
file. Once the file is disassembled you 
can find items in the E/AGRAMDSK version 
loaded into the Gram Kracker by adding 
>5804 to the address shown in the right 
hand column of Disk ASSEMBLER'S output. 
This will then be the gxxxx address for 
editing. 

If you want to change the default 
Tabs for the E/A Editor they are located 
at g7ED6 and they are offset by minus 
one. The EOF marker that appears on the 
editor screen is located at gd018 through 



0092 




LI 


R2,24 




0093 




BLHP 


§PBASIC 




0094 


* WAIT 


FOR FCTN TO BE 


PRESSED 


0095 


FCTN3 


TB 


7 




0096 




JBQ 


PCTH3 




0097 


* RETURN TO 


XB 




0098 


RETURN 


LVPI 


>83E0 


GPLWS 


0099 




B 


@>6A 


GPL 


0100 


SUBVSl 


BSS 


>20 


VS FOR PBASIC 


0101 


MYWS 


BSS 


>20 


MAIN VS 


0102 


BYTESL 


BYTE 





LENGTH 


0103 


BYTES 


BSS 


255 


PLACE FOR DATA 


0104 




END 







g803F. The text that appears^- ■ on r*e 
Command Line, when you press FCTN 9, is 
located at g8614 through g6757. Have 
Fun! 



CHANGING THE CURSOR OF THE 
E/A-6RAMDSK UTILITY 
by Tom Freeman, LA 99er» 

If you have used the E/AGRMDISK 
utility that came with the GK and 
installed the CHARAl file, you may have 
noticed that instead of a true cursor on 
the editor and assembler option screens 
you get a little If. This is because the 
B/A uses character >1F for its cursor 
here, and CHARAl hasn't defined it as a 
block. As TI -WRITER never actually uses 
it as far as I can tell, you can redefine 
it to whatever shape you wish. I put in 
a solid block cursor, although the B/A 
module uses a hollow block. The eight 
bytes in question are located as the last 
two of the first sector of CHARAl and the 
first six of the 2nd sector (if you have 
already created the E/A GRAM disk files, 
these wind up being on the 25th and 26th 
sectors of the fourth file created. You 
should see (00 40) (4C 50 10 IC 10 10) in 
these two sectors. Change these all to 
7E for a medium size block, or 3C for a 
narrow bl-ock, or (00 7B) (42 42 42 42 7B 
00) for a hollow block. 

While you're at it, if you don't 
like the arrow Instead of a circumflex 
(caret), then go to the next sector and 
look at the 10th to 3rd bytes from the 
end. If these are 10 28 44 10 10 10 10 
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00, yoQ can change the 10 's to 00 's and 
get a regular caret back. 



CHANGING THE DEFAULT DRIVE 
by Tom FrBaman, LA 99er» 



Many o£ you Kracker Hackers nay 
still be working with a TI disk 
controller, but have a MYARC or Mew 
Horizons RAMdisk. Up until now you have 
had to put the BDITl, BOITAl, B0ITA2, 
ASSHl, ASSM2, PORMAl, P0SMA2 in Drive 1 
because the B/A and TI-VRITBS modules 
insisted on it. Therefore, i£ you wanted 
fast loading from the RAHDISK, it had to 
be- Drive 1, thus disabling your true 
floppy drive 1. The following sections 
will show you how to change these modules 
to make the defaults for drives 2-9, and 
allow yon to keep using all your disk 
drives as usual. 

To keep repetitions to a minimum, I 
will review the process of using the GX 
Editor here. First save your module to 
disk (if you haven't already) using 
option 2 on the 6X main screen. Then 
remove the module and reload the file off 
the disk using option 1. Now choose 5, 
the Editor. The cursor will be in the 
upper left hand corner, over a small c 
(indicating CPU memory). FCTM 1- will 
switch you to a small g (for GRAM). 
Press enter and you can now feype the 
appropriate addresses that will be 
described. PCTN 9 will put the cursor on 
the memory window, and you can now make 
changes (be sure that the V/P switch is 
up, to Bank 1, or changes will not be 
accepted). After the change is made, 
exit the Editor with CTRL exit the GX 
with PCTN or PCTM 9 and test your 
changes. If they are OK, go back to the 
GK and re-save the module. 

I am not sure if there are different 
versions of these modules out there, 
which might make the addresses slightly 
different. If so you can use the Search 
feature of the GX. After getting the 
GRAM window with PCTH 1, press enter 
twice to get to Start address, enter 
6000, then AOOO for the Finish address, 
press FCTN 5 to activate the Search, 
press FCTN = If you need to change from 



ASCII to hex or vice versa, press FCTH 9 
to get the cursor into the search entry 
field, then type the string you want, 
MOVE THE CURSOR BACK TO THE LAST TYPED 
ENTRY, and press enter. The GX will find 
the first occurence for you and put the 
address in the upper left corner. To 
edit what you have found press FTCN 5 
again, then FCTH 9 and you will have the 
cursor in the memory field. 

EDITOR/ASSEMBLER 

The default disk drive for loading 
the Editor, Assembler, and UTILl files is 
at g6621. [search for BDITl if this 
isn't exactly right and you don't see it 
on the screen] The default name UTILl is 
at g662D. The name length of these files 
(all the same) is at g661D (In hex of 
course), and equals OA (i.e. DSKl. BDITl 
etc.) If you wish to have a different 
program name as your default for the 
Utility option it SMist still have 5 
characters. 

If you have Installed the BDITl and 
ASSMl-2 programs In high GRAM using the 
B/AGRMDISK utility that came with the GX, 
then these names are not needed and you 
can change even the length of the Utility 
program, provided you change the length 
byte at g661D (be sure to add the 5 for 
DSKl.) Alternatively you can change the 
NAMES of the BDITl and ASSMl-2 files with 
a Disk Manager to make them correspond in 
length to the name of the UTILl type 
program. Then just type in the new names 
in GRAM, as well as ^he new length byte. 
There is no room for names longer than 5, 
but they can be shorter. They must BEGIN 
-at the same location - the unused 
characters will be Ignored. If you have 
chained a UTILl type program together 
with the module for automatic loading on 
powerup (uses FCTN X when saving the 
module, see your GX manual for 
Instructions) then use a 4 character name 
for the module - this makes the 
additional files 5 characters. E.g. if 
the module name is UTIL then the utility 
programs can remain UTILl (and 2 if 
used). If you Installed the Editor and 
Assembler programs in high GRAM then the 
numbers would have to be higher than 1-2. 
I named the module F, and used the high 
GRAM option, so my utility program had to 
be named F4 and P5, and I therefore used 
F4 for the default at g6610 as above. 

As you can see there are myriad 
possibilities - do It the way YOU like. 

Vhen you have done all this you are 
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ready to go. First save the new nodule 
of course II Nov set up your RAHDISK to 
whatever drive you have chosen as your 
default. Use some copy program to copy 
the module files plus the utility 
programs (and the BOITl etc if they are 
not in high GRAM) to the RAMDISK. Nov 
when you enter the Editor or Assembler, 
you'll get them in a flash! Disk Manager 
1000 V3.5 and the MYARC Disk Hanger 
Supreme both support more than three 
drives. If you are using Disk Manager 
II, see my article on changing that 
cartridge to allov more than three 
drives. 

TI-WRITSR 

This one is a bit easier, because 
the default utility program name is not 
picked out of GRAM as such, but is put up 
on the screen. Hence there is no need to 
vorry about the length byte, as the 
program measures it once you press enter. 

Pirst, the default drive number is 
at g6763 (actually OSKl. isatg6760). 
If this address is not correct you can 
search for OSKl. but there seems to be 
one at S5A7 as well. I am not sure of 
what the function of this one is, but not 
changing it seemed to make no difference. 

The name of the Utility program is 
at g€B27 in English. Change it to 
whatever you wish (probably the same as 
the one in the Editor/ Assembler, if you 
have them on the same disk). The other 7 
languages (I) are located at 6CO0, 6BBA, 
70A1, 725B, 7469, 763B, and 6EBA. You 
can change then if you wish - I didn't 
bother since I don't use them. As a 
matter of fact, elsevhere in Kracker 
Facts are instructions by Mike Dodd on 
hov to get rid of these altogether, which 
vill be useful in the future, because 
I've heard a rumor that eventually we 
vill be able to get TI -WRITER and B/A in 
one (sRANl 



CHANGING DM2 TO ACCEPT NINE DRIVES 
by Tom Freeman, LA 99mr» 

Vhen TI originally vrote Disk 
Manager II, the only disk controller 
available was TI's, vhich would not 
accept more than three drives. So, TI 



didn't allov DM2 to accept a drive number 
of three or higher. But today, vith 
MYARC's disk controller and RAM-disks, 
many people have systems vith drives 
numbered higher than 3. This patch will 
allov you to change DM2 to allov 4, 5, or 
even 9 drives 1 

One would think that there is a 
single routine that checks for this. I 
worked through this one with Explorer and 
found a routine and changed it. But when 
I vent back to the module, the higher 
numbers were only accepted in some 
places. I wound up doing a little bit of 
educated guessing. I am pretty sure that 
what is listed belov vill make it all 
vork vithout messing up any routines. 

Pirst thfr changes to the routines. 
A hex 33 is picked out of GRAM each time; 
you can see this as an ASCII 3 as veil. 
I found the folloving locations necessary 
to change (all in GRAM): 724D, 72C0, 
63F^, 6426, 650C, 675D, 685D. All but 
the 2nd and 4th also have a small r 
before the 3, so you can use r3 for the 
search, if the addresses aren't right. 
Change all of these to 4-, 5 or vhatever 
number you vish. 

Next use the search feature to look 
for (1-3). There are 2 locations for 
each language. Change these to the 
number you chose above. This doesn't 
affect the running of the module but 
looks neater. 



EARLY LOGO LEARNING FUN FIX 
by Craig Miller (MG) 

The problem vith the Early Logo 
Learning Pun cartridge is that it von't 
vork vith the CorComp disk controller 
card. The exact problem is that this 
module has an APPLICATION PROGRAM name 
length of 00. When the Corcomp DSR goes 
thru the modules looking for Application 
names for the menu It starts moving them 
out and then it decrements the name 
length counter. >00 decremented is >FF 
or 255 bytes. This is vhat causes the 
mess on the title screen. 

To correct this simply SAVE the 
module out to disk using a TI or MYARC 
disk controller and then LOAD it back 



KRACKER FACTS 



- PAGE 29 



into the Gram Krackex. Then select the 
Gzam Kzackez*s MEMORY EDITOR and change 
the byte at g6047 to 01 and resave the 
module. 

It will not appear on the Corcomp 
menu but you can press 3 to start the 
module or you can press the space bar 
tvlce and it will appear on the TI Menu. 

We tried putting a standard header 
in it for the Corcomp menu but it messed 
up the TI and HYARC menus, so it wasn't a 
good universal fix. 



F2 A6 BO 00 20 91 00 93 02 58 55 00 

How enable the write protect, press 
CTRL 3 to leave the memory editor, and 
save your modified Video Chess cartridge 
to disk. 

How, whenever you tell Video Chess 
to save or load a file, it will ask for a 
filename. Press FCTH 3 to erase the 
filename if you make a mistake. Hone of 
the other PCTM keys (i.e. PCTM 3, D, 2, 
1) will work. 



VIDEO CHESS FILENAME ENTRY 
by Mika Dodd, LA 99ers 

The Video Chess cartridge's lack of 
ability to save to disk can often be 
frustrating. The following modification 
will allow you to specify any filename; 
disk, RAM-disk, cassette, and probably 
even hard disk. 

Load the Video Chess module into the 
6K. How enter the memory editor. Select 
GRAM/GROM with PCTH 1 and hex mode with 
FCTH Enter search mode with FCTN 5. 
Search between 6000 and 7800 for 31 00 OF 
AB B8 60 60. Vhen you find it, exit the 
search with PCTH 5, get into the memory 
window with FCTM 9, and type 06 78 00 05 
72 65 (be sure to enable bank 1). How 
press FCTH 5 to search. Leave the 
addresses alone, and search for the same 
string, by putting the cursor on the last 
"0" in the last "60", and pressing BHTER. 
Press FCTH 5 to leave the search, FCTH 9 
and EHTER to home the cursor in the 
memory window, and type 06 78 00 05 72 
PC. Press FCTH 9 and change the address 
field (upper left corner) to 7800. Press 
FCTH 9 and EHTBR. How type the following 
data (don't type the addresses - they're 
just a guide) . 



TIW-MOVER FIX 
by Craig Millar <MG) 

IP you use the TIW-MOVER utility to 
move TI -Writer to another Gram chip you 
will need to patch the FORMAl disk file. 
This file currently contains a simple 
module check that won't allow it to run 
with the "5 RUM PROGRAM" option of B/A or 
AMY OTHER module loaded into Gram 3 
(>6000->7FFP) that contains Basic 
Subprograms (CALLs), such as Extended 
Basic. To correct this you need to use a 
sector editor such as Advanced 
Diagnostics. 

Once Advanced Diags is loaded place 
your Tl-Writer disk in drive 1 with the 
write protect tab removed. Execute the 
AD command "PF FORMAl" to get the file 
information and the Start Sector. Once 
you have the Start Sector t (ssi) execute 
the AO command "ES sst". At the 34th and 
35th byte in the first data sector (start 
sector) of the file you will find the Hex 
value of 1000, change this to 1011. The 
1000 is a HOP (no operation) the 1011 is 
a JUMP to >2040 which bypasses the module 
check and wipe out routine. After you 
have patched this word press PCTH 9 and 
then execute "WS ssl" to rewrite the 
sector. We hope this clears up any 
problems you may have encountered with 
the new utilities. 



31 00 OF AB B8 60 60 08 PC 20 FE 00 

FF 02 08 46 49 4C 45 4E 41 4D 45 3P 

AO PF 02 SP 20 FB BP 00 00 22 BE BO 

00 4A 03 58 22 D6 75 OD 78 3E D6 75 

07 78 00 A2 75 20 BC BO 00 75 91 00 

58 22 BD 02 00 A7 02 00 22 78 00 34 

02 AB F2 AO 22 BC AB PI 03 BP 00 OB 
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REMOVINS FOREIGN LANGUAGE OPTIONS FROM 
T I -WRITER & DM2 
by Mika Dadd 

To remove the extra languages £rom 
the Tl-Writer cartridge, load Tl-Writer 
into the GRAM Kracker and select 5 Edit 
Memory. Type G6006 to select GRAM 
address >6006, and PCTH = to select hex 
mode. Press FCTN 9 to enter the memory 
window, enable bank 1 and type 60CB. 
Enable write protect, press CTRL = to 
leave the memory editor, and re-save your 
Tl-Vriter cartridge back to disk. That's 
all there is to itl 

To eliminate the three extra 
languages from TI Disk Manager II, enter 
the memory editor. Type G8007 PCTH = 
PCTH 9. Enable bank 1 and type 5B. 
Enable write protect, press CTRL = to 
leave the memory editor, and re-save your 
DH2 cartridge back to disk. That's all 
there is to iti 



GRAM PACKER HINTS 
by Tom Freeman, LA 99ers 



Several modifications have to be 
made to your operating system in GRAM 
in order to make full use of the GRAM 
PACKER (written by J. Peter Hoddie, 
available from Genial Computerware ) . You 
will be using your Gram Kracker Editor to 
accomplish these (option 15 from the GK 
main menu). Rather than describe all the 
keystrokes each time, I will remind you 
of the general method here. Pirst of 
all, when you get to the editor screen, 
press PCTH 1 once to get to GRAM memory. 
How when you are instructred to search 
for a string, press PCTH S for search. 
The cursor will be on the "start** 
address. Accept the default of 0000 if 
it is there, or type it in, then press 
enter to get to "fin'^sh" and type 2000. 
How press PCTH 9 and type in your search 
string, remembering PCTH » to get to hex 
if that is what you are searching for (in 
general it will be). Back up the cursor 
one space to get it over the last 
character in the search string then press 
enter. If the string is not found, the 
edit field will not change - if it is 



found, the address in the upper left hand 
corner will reflect the location of the 
first byte of the string found. How 
press PCTH 5 again to get out of SEARCH, 
then PCTH 9 to edit, and type in the 
appropriate changes. You will need WP 
off in order to type in the changes - 
remember to turn it back on when you are 
finished typing. 

The following set of changes need to 
be made only if you will wind up with 
more than 9 items on your main menu. 
There would be two problems if the 
changes were not made: 1) you wouldn't 
see any after 9 because of the double 
spacing! and 2) even if you could the key 
presses would be : ; < = > etc. some of 
which would actually be two keys (SHIPT 
and key). We will therefore enable 
single spacing on the main menu (thanks 
to Craig Miller in The Smart Programmer 
foe this information) and change the 
sequence of key presses from numbers 
beginning with 1 to letters beginning 
with A. 

Pirst, to change to double spacing: 
Search for (hex) A3 52 00 3A. In many 
consoles this will be at 02E0. Change 
the 3A to lA. Hext comes a problem of 
another routine using temporary storage 
where we will need it (not actually 
involved with the double spacing, but 
needed if there ARE more than 9 items for 
the menu). Leaving the start and finish 
addresses the same, get back to SEARCH by 
pressing PCTH 5, PCTH 9 and type in 00 02 
28 60 for the search string. You should 
find it at about 0380. PCTH 5 to get 
back to the memory window. The top line 
should read: 

00 02 28 60 00 D6 28 AA 43 95 D2 29 
change the 3rd, 7th, and 12tfa bytes: 
00 02 40 60 00 D6 40 AA 43 95 D2 41 

You should also Insert the small 
capital character set Into the TITLE 
SCREEH Characters using the HEVCHARS 
program on the original GK utility disk, 
otherwise tne characters will touch each 
other top to bottom and be almost 
Impossible to read. Hote that you can 
only have 16 Items on the menu because 
the start address for the first Item Is 
destroyed by the 17th Item. 

How to change the key presses to 

letters - this is siipler, rirst- ehauge 

your start address back to 0000, then 
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search for BE 56 30. You should find it 
at about 0275. Chanqe the 30 to 40. 
Next search for A6 75 31 (should be at 
02FC) and chanqe the 31 to 41. You will 
nov see letters instead of numbers on the 
main menu. 

I found another problem with many 
programs: they do not bother to change 
the keyboard unit to be scanned, assuming 
it to be 5, since that is where the B/A 
module is when option IS is chosen. The 
problem is that the operating system is 
using keyboard unit 3 at the time the 
menu is set up (for this reason you can 
use lover case letters for the key press 
on the menu - they will be converted to 
upper case). Here is a simple fix: 12 
bytes past the 41 you just typed in you 
should see 06 03 Cx A4, where the x is 
probably a E. Change the first three to 
05 19 00. Mow PCTH 9 to get out of 
memory window, isove the cursor to the 
address after the g in the upper left 
hand corner, and type in 1900. Mow FCTN 
-8 again, press enter to "home" the 
cursor, and type in the following: 06 03 
Cx BE 80 C6 02 05 03 Oy where x is the 
same as you just found above, and y is 3 
higher (in hex) than the address where 
you found the 06 03 (if that was 030A as 
it was in my console, then y would be D). 
This changes the keyboard unit to 5. 

For those of you using SBUG6, as I 
do often, and who wish to use it from the 
main menu, you may have found that the 
small character set is not loaded, which 
is a PAINl It's OK if you have loaded It 
from B/A «5. Her« is a fix: it 
incorporates MG's GPLLNK inserted 
directly into memory and then a simple 
BLWP 8GPLLNK DATA >004A and then return 
to the beginning of the actual program. 
You will need a sector editor for this. 
First find the FDR of the file (catalog 
sector). Change byte 16O10) from 92 to 

100 ! °t'*%'t%it't'«'*'«!*'*'t *'**tl»ltlild» 

110 !*GRAM Packer utility* 

120 t*Determines if file* 

130 I* is Tl-Save type or* 

140 l*non - Tl-Save type* 

150 i*By Mike Oodd. Uses* 

160 !*Barry Traver's RAW* 

170 I 'program. * 
ISO ttiitt*t*tt*t**t*t****t 

190 GOTO 200 :: A$,B$,C$,D$, 
B$ :: A,B,C,D,B,F,6 :: CALL 
LINK :: 199- 

200 DISPLAY ERASE ALL: "HAKE 
SURE BARRY TRAVER'S RAW P 
ROGRAM IS LOADED. IF MOT, 



EAr Second find the first actual data 
sector of the file. Change byte 3 from 
92 to BA and bytes 24-25018-19) from 62 
84 to 7D D2. Finally go to the LAST 
sector of the file (there are 30 data 
sectors) and starting at byte 146092) 
carefully type in the following over 
whatever is there: 

7D 7B 7D 9B 7D C2 17 6C 00 50 00 00 
00 00 00 00 00 00 C8 IB 83 B8 C8 3E 
83 EC C3 20 20 OE C8 09 20 OB 02 BO 
83 EO 06 94 C9 20 70 92 83 02 05 BO 
83 73 04 60 00 60 CI 20 16 6C 06 94 
02 BO 7D 7E C8 OC 20 OB 03 80 02 00 
OB 00 G8 00 83 4A 04 20 7D 8C 00 4A 
04 60 62 84 



GRAM PACKER AID 
by Mike Dodd, LA 99er3 

One of the problems with GRAM Packer 
was that it has to know whether or not it 
the program uses TI Save format. Now you 
can use an XB program I wrote to analyze 
a file and tell you what format it uses, 
whereas before, the only way to tell was 
trial and error. Since my program must 
read sectors off the disk, you must load 
Barry Traver's RAW program before running 
the XB program. RAW was on Genial 
TRAVelER V1I4, and is present in all 
versions of the TRAVelER 's XXB program. 

When the program runs, it will ask 
for a- filename. It will then analyze the 
file and tell you if it uses TI Save, 
doesn't use TI Save, or if it isn't an 
BA5 file. It may take a while, depending 
on the number of files on the disk, since 
it is written in XB. 



PRfiSS"FCnr4 AND"LOAb" iT" 
210 G''2S6 :: INPUT "FILENAME 
? DSK":A$ :: A=VAL(SEG$(A$,1 
,1)):: A$=SEG$(A$,3,10):: A$ 
=A$4RPT$(" ",10-LEN(A$)) 
220 CALL LIMK("READ",A,1,B$, 
C$):: B$»B$SSEG$(C$,1,127):: 
FOR B-0 TO 126 :: F3ASC(SEG 
S ( B$ , E*2 +1 , 1 ) ) »G+ASC ( SEG$ ( B$ 
,B*2f2,l)) 

230 CALL LINK { "READ", A,F,C$, 
D$):: IF SBG$(C$,1,10)=A$ TH 
EN 250 

240 NEXT E :: PRINT "ERROR - 
HOT FOUND" :: END 



2S0 D=('lS AND ASC(SE6$( C$,30 
,l)))*GfASC(SEG$(C$,29,l)):: 

CALL LINK("READ",A,D,D$,E$) 
260 E-ASC(SEG$(D$,l,l))*GfAS 
C(SEG$(D$,2,1)):: IF E06553 
5 AND BOO .^ND E0887 THEN P 
RINT "ERROR - NOT E/A 5 TYPE 

FILE" :: END 
270 B«G*ASC(SEG$(D$,3,1))+AS 
C(SBG$(D$,4,1)) 
280 E=ASC(SEG$(C$,17,1)):: P 
»ASC(SEG$(C$,16,1)):: IF B=0 

THEN C=P*G ELSE C=F«G+B-G 
290 IF B=C THEN PRINT "TI SA 
VE" ELSE PRINT "HON TI SAVE" 
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